home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1996-04-05 | 27.8 KB | [IGsU/IGR0] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: FITS Loader Demo
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Wed Apr 3 01:09:06 1996, modified Fri Apr 5 07:02:43 1996, creator 'IGR0', type 'IGsU', 24690 bytes "FITS Loader Demo" , at 0x60f2 3500 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [IGsU] |
| macFileCreator | [IGR0] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 46 49 54 53 20 4c | 6f 61 64 65 72 20 44 65 |..FITS L|oader De|
|00000010| 6d 6f 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |mo......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 49 47 73 55 49 47 52 | 30 01 00 00 00 00 00 00 |.IGsUIGR|0.......|
|00000050| 00 00 00 00 00 60 72 00 | 00 0d ac ad 87 c6 82 ad |.....`r.|........|
|00000060| 8a bc 63 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..c.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 3c c9 00 00 |........|....<...|
|00000080| 00 01 00 00 00 00 00 5c | 00 01 00 15 00 00 00 00 |.......\|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 02 00 00 | 00 00 00 00 00 08 00 00 |........|........|
|000000f0| 00 00 13 61 00 64 00 07 | 57 4d 54 30 49 47 52 30 |...a.d..|WMT0IGR0|
|00000100| 00 00 00 00 00 00 00 00 | 00 01 00 00 12 c7 00 01 |........|........|
|00000110| 00 00 00 00 44 6f 63 73 | 00 30 00 00 00 00 00 00 |....Docs|.0......|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 4e 6f 74 65 | 62 6f 6f 6b 30 00 00 00 |....Note|book0...|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 4e 6f 74 65 | 62 6f 6f 6b 30 3a 44 6f |....Note|book0:Do|
|00000160| 63 73 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |cs......|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00000190| 00 00 00 00 00 28 00 06 | 01 21 01 ed 00 29 00 0e |.....(..|.!...)..|
|000001a0| 01 22 01 f5 00 00 00 35 | 00 03 00 00 00 48 00 48 |.".....5|.....H.H|
|000001b0| 00 00 00 00 02 da 02 28 | ff e1 ff e2 02 f9 02 46 |.......(|.......F|
|000001c0| 03 47 05 28 03 fc 00 02 | 00 00 00 48 00 48 00 00 |.G.(....|...H.H..|
|000001d0| 00 00 02 da 02 28 00 01 | 00 00 00 64 00 00 00 01 |.....(..|...d....|
|000001e0| 00 01 01 01 00 00 00 01 | 27 0f 00 01 00 01 00 00 |........|'.......|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 02 00 19 01 90 |........|........|
|00000200| 00 00 00 00 00 40 00 00 | 00 00 00 00 00 00 00 00 |.....@..|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 31 00 00 00 00 | 70 00 00 00 00 00 00 06 |...1....|p.......|
|00000230| 70 00 00 0d 00 00 00 07 | 00 00 00 31 00 00 00 00 |p.......|...1....|
|00000240| 70 00 00 00 00 00 00 06 | 70 00 00 0d 00 00 00 07 |p.......|p.......|
|00000250| 00 24 00 00 4e 6f 72 6d | 61 6c 00 00 00 00 00 00 |.$..Norm|al......|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 ff ff ff ff | 00 00 00 00 01 d4 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 0a |........|........|
|000002b0| 00 00 00 00 00 00 7f ff | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000002d0| 00 01 00 ee 00 00 ff ff | ff ff ff ff ff ff 00 00 |........|........|
|000002e0| 00 3c 00 07 00 00 00 00 | 00 00 00 00 00 00 00 00 |.<......|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 48 00 48 00 48 |........|...H.H.H|
|00000310| 00 48 00 24 00 00 00 00 | 00 24 00 00 00 00 00 01 |.H.$....|.$......|
|00000320| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 11 4e | 00 00 00 d4 00 00 12 22 |.......N|......."|
|00000340| 00 00 00 7a 00 00 02 5a | 00 00 0e f4 00 00 12 9c |...z...Z|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 12 9c 00 00 00 0b |........|........|
|00000360| 00 00 12 a7 00 00 00 20 | 00 00 12 c7 00 00 00 00 |....... |........|
|00000370| 00 00 12 c7 00 00 00 00 | 00 00 12 c7 00 00 00 00 |........|........|
|00000380| 00 00 12 c7 00 00 00 00 | 00 00 12 c7 00 00 00 00 |........|........|
|00000390| 00 00 12 c7 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 11 00 12 00 01 46 49 |........|......FI|
|000003f0| 54 53 20 4c 6f 61 64 65 | 72 20 44 65 6d 6f 0d 00 |TS Loade|r Demo..|
|00000400| 00 00 00 12 00 01 ff ff | 00 00 ff ff 00 00 00 00 |........|........|
|00000410| 00 00 00 0d 00 00 00 01 | 20 56 65 72 73 69 6f 6e |........| Version|
|00000420| 20 31 2e 30 0d 0d 00 01 | 00 00 00 00 0d 00 00 25 | 1.0....|.......%|
|00000430| 00 00 00 00 46 6f 72 20 | 75 73 65 20 77 69 74 68 |....For |use with|
|00000440| 20 49 67 6f 72 20 50 72 | 6f 20 33 2e 30 2e 30 20 | Igor Pr|o 3.0.0 |
|00000450| 6f 72 20 6c 61 74 65 72 | 0d 00 00 01 00 00 00 00 |or later|........|
|00000460| 0d 00 01 32 00 00 00 00 | 54 68 69 73 20 65 78 70 |...2....|This exp|
|00000470| 65 72 69 6d 65 6e 74 20 | 77 69 6c 6c 20 62 65 20 |eriment |will be |
|00000480| 6f 66 20 69 6e 74 65 72 | 65 73 74 20 70 72 69 6d |of inter|est prim|
|00000490| 61 72 69 6c 6c 79 20 74 | 6f 20 70 72 6f 66 65 73 |arilly t|o profes|
|000004a0| 73 69 6f 6e 61 6c 20 61 | 73 74 72 6f 6e 6f 6d 65 |sional a|stronome|
|000004b0| 72 73 2e 20 49 74 20 69 | 6c 6c 75 73 74 72 61 74 |rs. It i|llustrat|
|000004c0| 65 73 20 74 68 65 20 75 | 73 65 20 6f 66 20 61 20 |es the u|se of a |
|000004d0| 70 72 6f 63 65 64 75 72 | 65 20 70 61 63 6b 61 67 |procedur|e packag|
|000004e0| 65 20 64 65 73 69 67 6e | 65 64 20 74 6f 20 6c 6f |e design|ed to lo|
|000004f0| 61 64 20 4e 41 53 41 27 | 73 20 46 6c 65 78 69 62 |ad NASA'|s Flexib|
|00000500| 6c 65 20 49 6d 61 67 65 | 20 54 72 61 6e 73 70 6f |le Image| Transpo|
|00000510| 72 74 20 53 79 73 74 65 | 6d 20 66 69 6c 65 73 2e |rt Syste|m files.|
|00000520| 20 49 66 20 79 6f 75 20 | 64 6f 6e 27 74 20 6a 75 | If you |don't ju|
|00000530| 73 74 20 68 61 70 70 65 | 6e 20 74 6f 20 68 61 76 |st happe|n to hav|
|00000540| 65 20 61 20 62 61 74 63 | 68 20 6f 66 20 46 49 54 |e a batc|h of FIT|
|00000550| 53 20 66 69 6c 65 73 20 | 6c 79 69 6e 67 20 61 72 |S files |lying ar|
|00000560| 6f 75 6e 64 2c 20 79 6f | 75 20 61 72 65 20 70 72 |ound, yo|u are pr|
|00000570| 6f 62 61 62 6c 79 20 6e | 6f 74 20 69 6e 74 65 72 |obably n|ot inter|
|00000580| 65 73 74 65 64 20 69 6e | 20 74 68 69 73 20 65 78 |ested in| this ex|
|00000590| 70 65 72 69 6d 65 6e 74 | 2e 0d 00 01 00 00 00 00 |periment|........|
|000005a0| 0d 00 01 d0 00 00 40 00 | 54 68 65 20 63 6f 64 65 |......@.|The code|
|000005b0| 20 70 72 6f 76 69 64 65 | 64 20 69 73 20 69 6e 74 | provide|d is int|
|000005c0| 65 6e 64 65 64 20 74 6f | 20 62 65 20 61 20 73 74 |ended to| be a st|
|000005d0| 61 72 74 69 6e 67 20 70 | 6f 69 6e 74 20 66 6f 72 |arting p|oint for|
|000005e0| 20 61 20 75 73 65 72 20 | 73 75 70 70 6f 72 74 65 | a user |supporte|
|000005f0| 64 20 61 73 74 72 6f 20 | 70 61 63 6b 61 67 65 2e |d astro |package.|
|00000600| 20 20 49 74 20 6c 6f 61 | 64 73 20 74 68 65 20 70 | It loa|ds the p|
|00000610| 72 69 6d 61 72 79 20 61 | 72 72 61 79 20 61 6e 64 |rimary a|rray and|
|00000620| 20 63 72 65 61 74 65 73 | 20 61 6e 20 69 6d 61 67 | creates| an imag|
|00000630| 65 20 6f 66 20 32 44 20 | 6f 72 20 33 44 20 64 61 |e of 2D |or 3D da|
|00000640| 74 61 20 61 6e 64 20 61 | 20 72 65 67 75 6c 61 72 |ta and a| regular|
|00000650| 20 67 72 61 70 68 20 6f | 66 20 31 44 20 64 61 74 | graph o|f 1D dat|
|00000660| 61 2e 20 59 6f 75 20 6d | 61 79 20 77 69 73 68 20 |a. You m|ay wish |
|00000670| 74 6f 20 75 73 65 20 74 | 68 65 20 47 72 61 70 68 |to use t|he Graph|
|00000680| 69 63 61 6c 20 53 6c 69 | 63 65 72 20 58 4f 50 20 |ical Sli|cer XOP |
|00000690| 74 6f 20 76 69 65 77 20 | 33 44 20 64 61 74 61 2e |to view |3D data.|
|000006a0| 20 49 66 20 79 6f 75 20 | 75 73 65 20 74 68 65 20 | If you |use the |
|000006b0| 61 75 74 6f 20 64 69 73 | 70 6c 61 79 20 6d 6f 64 |auto dis|play mod|
|000006c0| 65 2c 20 74 68 65 20 70 | 61 63 6b 61 67 65 20 77 |e, the p|ackage w|
|000006d0| 69 6c 6c 20 61 64 64 20 | 61 20 63 6f 6e 74 72 6f |ill add |a contro|
|000006e0| 6c 20 74 6f 20 74 68 65 | 20 67 72 61 70 68 20 74 |l to the| graph t|
|000006f0| 68 61 74 20 6c 65 74 73 | 20 79 6f 75 20 73 65 74 |hat lets| you set|
|00000700| 20 74 68 65 20 70 6c 61 | 6e 65 20 6e 75 6d 62 65 | the pla|ne numbe|
|00000710| 72 20 74 6f 20 76 69 65 | 77 20 69 66 20 74 68 65 |r to vie|w if the|
|00000720| 20 64 61 74 61 20 68 61 | 73 20 6d 6f 72 65 20 74 | data ha|s more t|
|00000730| 68 61 6e 20 33 20 70 6c | 61 6e 65 73 2e 20 28 49 |han 3 pl|anes. (I|
|00000740| 67 6f 72 20 61 75 74 6f | 6d 61 74 69 63 61 6c 6c |gor auto|maticall|
|00000750| 79 20 74 72 65 61 74 73 | 20 33 20 70 6c 61 6e 65 |y treats| 3 plane|
|00000760| 73 20 61 73 20 64 69 72 | 65 63 74 20 72 67 62 20 |s as dir|ect rgb |
|00000770| 63 6f 6c 6f 72 2e 29 0d | 00 01 00 00 00 00 0d 00 |color.).|........|
|00000780| 00 7e 00 00 40 00 49 66 | 20 79 6f 75 20 63 72 65 |.~..@.If| you cre|
|00000790| 61 74 65 20 79 6f 75 72 | 20 6f 77 6e 20 69 6d 61 |ate your| own ima|
|000007a0| 67 65 20 70 6c 6f 74 20 | 6f 66 20 74 68 65 20 64 |ge plot |of the d|
|000007b0| 61 74 61 20 61 6e 64 20 | 74 68 65 20 64 61 74 61 |ata and |the data|
|000007c0| 20 69 73 20 33 44 2c 20 | 79 6f 75 20 63 61 6e 20 | is 3D, |you can |
|000007d0| 76 69 65 77 20 69 6e 64 | 69 76 69 64 75 61 6c 20 |view ind|ividual |
|000007e0| 70 6c 61 6e 65 73 20 75 | 73 69 6e 67 20 74 68 65 |planes u|sing the|
|000007f0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 63 6f 6d 6d 61 | followi|ng comma|
|00000800| 6e 64 3a 0d 00 1b 00 00 | 40 00 09 4d 6f 64 69 66 |nd:.....|@..Modif|
|00000810| 79 49 6d 61 67 65 20 64 | 61 74 61 2c 70 6c 61 6e |yImage d|ata,plan|
|00000820| 65 3d 20 32 0d 00 00 40 | 00 00 40 00 77 68 65 72 |e= 2...@|..@.wher|
|00000830| 65 20 64 61 74 61 20 69 | 73 20 74 68 65 20 6e 61 |e data i|s the na|
|00000840| 6d 65 20 6f 66 20 74 68 | 65 20 69 6d 61 67 65 20 |me of th|e image |
|00000850| 61 6e 64 20 32 20 69 73 | 20 74 68 65 20 64 65 73 |and 2 is| the des|
|00000860| 69 72 65 64 20 70 6c 61 | 6e 65 2e 0d 00 01 00 00 |ired pla|ne......|
|00000870| 00 00 0d 00 00 c2 00 00 | 40 00 42 79 20 63 68 65 |........|@.By che|
|00000880| 63 6b 69 6e 67 20 74 68 | 65 20 50 72 6f 6d 6f 74 |cking th|e Promot|
|00000890| 65 20 49 6e 74 73 20 63 | 68 65 63 6b 62 6f 78 2c |e Ints c|heckbox,|
|000008a0| 20 79 6f 75 20 63 61 6e | 20 61 6c 6c 6f 77 20 74 | you can| allow t|
|000008b0| 68 65 20 70 61 63 6b 61 | 67 65 20 74 6f 20 73 63 |he packa|ge to sc|
|000008c0| 61 6c 65 20 61 6e 64 20 | 63 6f 6e 76 65 72 74 20 |ale and |convert |
|000008d0| 69 6e 74 65 67 65 72 20 | 64 61 74 61 20 74 6f 20 |integer |data to |
|000008e0| 66 6c 6f 61 74 69 6e 67 | 20 70 6f 69 6e 74 2e 20 |floating| point. |
|000008f0| 49 74 20 69 73 20 75 6e | 63 68 65 63 6b 65 64 20 |It is un|checked |
|00000900| 62 79 20 64 65 66 61 75 | 6c 74 20 69 6e 20 6f 72 |by defau|lt in or|
|00000910| 64 65 72 20 74 6f 20 73 | 70 65 65 64 20 75 70 20 |der to s|peed up |
|00000920| 6c 6f 61 64 69 6e 67 20 | 61 6e 64 20 74 6f 20 73 |loading |and to s|
|00000930| 61 76 65 20 6d 65 6d 6f | 72 79 2e 0d 00 01 00 00 |ave memo|ry......|
|00000940| 40 00 0d 00 01 3f 00 00 | 40 00 54 68 69 73 20 76 |@....?..|@.This v|
|00000950| 65 72 73 69 6f 6e 20 64 | 6f 65 73 20 6e 6f 74 20 |ersion d|oes not |
|00000960| 73 75 70 70 6f 72 74 20 | 72 61 6e 64 6f 6d 20 67 |support |random g|
|00000970| 72 6f 75 70 73 20 61 6e | 64 20 6d 61 6b 65 73 20 |roups an|d makes |
|00000980| 6f 6e 6c 79 20 61 20 6c | 69 6d 69 74 65 64 20 61 |only a l|imited a|
|00000990| 74 74 65 6d 70 74 20 74 | 6f 20 73 75 70 70 6f 72 |ttempt t|o suppor|
|000009a0| 74 20 74 68 65 20 74 61 | 62 6c 65 73 20 65 78 74 |t the ta|bles ext|
|000009b0| 65 6e 73 69 6f 6e 2e 20 | 57 68 65 6e 20 69 74 20 |ension. |When it |
|000009c0| 66 69 6e 64 73 20 61 6e | 20 41 53 43 49 49 20 74 |finds an| ASCII t|
|000009d0| 61 62 6c 65 2c 20 49 74 | 20 70 75 74 73 20 74 68 |able, It| puts th|
|000009e0| 65 20 72 6f 77 73 20 69 | 6e 20 61 20 6e 6f 74 65 |e rows i|n a note|
|000009f0| 62 6f 6f 6b 2e 20 49 74 | 20 6d 69 67 68 74 20 62 |book. It| might b|
|00000a00| 65 20 62 65 74 74 65 72 | 20 74 6f 20 72 65 61 64 |e better| to read|
|00000a10| 20 74 68 65 20 69 6e 64 | 69 76 69 64 75 61 6c 20 | the ind|ividual |
|00000a20| 66 69 65 6c 64 73 20 69 | 6e 74 6f 20 6f 6e 65 20 |fields i|nto one |
|00000a30| 64 69 6d 65 6e 73 69 6f | 6e 61 6c 20 6e 75 6d 65 |dimensio|nal nume|
|00000a40| 72 69 63 20 61 6e 64 20 | 74 65 78 74 20 77 61 76 |ric and |text wav|
|00000a50| 65 73 20 61 6e 64 20 74 | 68 65 6e 20 63 72 65 61 |es and t|hen crea|
|00000a60| 74 65 20 61 20 74 61 62 | 6c 65 20 77 69 64 6f 77 |te a tab|le widow|
|00000a70| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 74 68 65 73 | contain|ing thes|
|00000a80| 65 20 77 61 76 65 73 2e | 0d 00 00 01 00 00 00 00 |e waves.|........|
|00000a90| 0d 00 00 0d 00 12 00 00 | 55 73 61 67 65 20 6e 6f |........|Usage no|
|00000aa0| 74 65 73 3a 0d 00 00 00 | ff ff 00 01 ff ff 00 00 |tes:....|........|
|00000ab0| ff ff 00 00 00 00 00 00 | 01 48 00 00 40 00 49 66 |........|.H..@.If|
|00000ac0| 20 79 6f 75 20 77 61 6e | 74 20 74 6f 20 75 73 65 | you wan|t to use|
|00000ad0| 20 74 68 65 20 66 69 74 | 73 20 6c 6f 61 64 65 72 | the fit|s loader|
|00000ae0| 20 69 6e 20 79 6f 75 72 | 20 6f 77 6e 20 65 78 70 | in your| own exp|
|00000af0| 65 72 69 6d 65 6e 74 2c | 20 62 72 69 6e 67 20 74 |eriment,| bring t|
|00000b00| 68 65 20 46 49 54 53 20 | 4c 6f 61 64 65 72 20 70 |he FITS |Loader p|
|00000b10| 72 6f 63 65 64 75 72 65 | 20 66 69 6c 65 20 74 6f |rocedure| file to|
|00000b20| 20 74 68 65 20 66 72 6f | 6e 74 20 61 6e 64 20 74 | the fro|nt and t|
|00000b30| 68 65 6e 20 75 73 65 20 | 74 68 65 20 53 61 76 65 |hen use |the Save|
|00000b40| 20 50 72 6f 63 65 64 75 | 72 65 20 43 6f 70 79 20 | Procedu|re Copy |
|00000b50| 69 74 65 6d 20 69 6e 20 | 74 68 65 20 46 69 6c 65 |item in |the File|
|00000b60| 20 6d 65 6e 75 20 61 6e | 64 20 73 61 76 65 20 69 | menu an|d save i|
|00000b70| 6e 74 6f 20 74 68 65 20 | 55 73 65 72 20 50 72 6f |nto the |User Pro|
|00000b80| 63 65 64 75 72 65 73 20 | 66 6f 6c 64 65 72 2e 20 |cedures |folder. |
|00000b90| 54 68 65 6e 20 69 6e 20 | 74 68 65 20 65 78 70 65 |Then in |the expe|
|00000ba0| 72 69 6d 65 6e 74 73 20 | 69 6e 20 77 68 69 63 68 |riments |in which|
|00000bb0| 20 79 6f 75 20 77 61 6e | 74 20 74 6f 20 75 73 65 | you wan|t to use|
|00000bc0| 20 74 68 65 20 6c 6f 61 | 64 65 72 20 70 61 63 6b | the loa|der pack|
|00000bd0| 61 67 65 2c 20 61 64 64 | 20 74 68 65 20 66 6f 6c |age, add| the fol|
|00000be0| 6c 6f 77 69 6e 67 20 6c | 69 6e 65 20 74 6f 20 79 |lowing l|ine to y|
|00000bf0| 6f 75 72 20 70 72 6f 63 | 65 64 75 72 65 20 77 69 |our proc|edure wi|
|00000c00| 6e 64 6f 77 3a 0d 00 17 | 00 00 00 00 23 69 6e 63 |ndow:...|....#inc|
|00000c10| 6c 75 64 65 20 22 46 49 | 54 53 20 4c 6f 61 64 65 |lude "FI|TS Loade|
|00000c20| 72 22 0d 00 00 01 00 00 | 00 00 0d 00 00 01 00 00 |r"......|........|
|00000c30| 00 00 0d 00 00 0f 00 12 | 40 00 44 61 74 61 20 6c |........|@.Data l|
|00000c40| 6f 63 61 74 69 6f 6e 3a | 0d 00 00 00 ff ff 00 01 |ocation:|........|
|00000c50| ff ff 00 00 ff ff 00 00 | 00 00 00 00 01 a8 00 00 |........|........|
|00000c60| 40 00 44 61 74 61 20 69 | 73 20 70 6c 61 63 65 64 |@.Data i|s placed|
|00000c70| 20 69 6e 20 76 61 72 69 | 6f 75 73 20 64 61 74 61 | in vari|ous data|
|00000c80| 20 66 6f 6c 64 65 72 73 | 2e 20 55 73 65 20 74 68 | folders|. Use th|
|00000c90| 65 20 44 61 74 61 20 42 | 72 6f 77 73 65 72 20 28 |e Data B|rowser (|
|00000ca0| 44 61 74 61 20 6d 65 6e | 75 29 20 74 6f 20 73 65 |Data men|u) to se|
|00000cb0| 74 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 64 61 |t the cu|rrent da|
|00000cc0| 74 61 20 66 6f 6c 64 65 | 72 20 62 65 66 6f 72 65 |ta folde|r before|
|00000cd0| 20 79 6f 75 20 74 72 79 | 20 74 6f 20 75 73 65 20 | you try| to use |
|00000ce0| 74 68 65 20 69 74 65 6d | 73 20 69 6e 20 49 67 6f |the item|s in Igo|
|00000cf0| 72 27 73 20 6d 65 6e 75 | 73 2e 20 46 6f 72 20 65 |r's menu|s. For e|
|00000d00| 78 61 6d 70 6c 65 2c 20 | 69 66 20 79 6f 75 20 6c |xample, |if you l|
|00000d10| 6f 61 64 20 61 20 66 69 | 6c 65 20 6e 61 6d 65 64 |oad a fi|le named|
|00000d20| 20 27 6d 79 46 69 6c 65 | 2e 66 69 74 73 27 20 74 | 'myFile|.fits' t|
|00000d30| 68 61 74 20 68 61 73 20 | 61 20 70 72 69 6d 61 72 |hat has |a primar|
|00000d40| 79 20 64 61 74 61 20 61 | 72 72 61 79 2c 20 74 68 |y data a|rray, th|
|00000d50| 65 20 64 61 74 61 20 77 | 69 6c 6c 20 62 65 20 73 |e data w|ill be s|
|00000d60| 74 6f 72 65 64 20 69 6e | 20 61 20 77 61 76 65 20 |tored in| a wave |
|00000d70| 6e 61 6d 65 64 20 27 64 | 61 74 61 27 20 69 6e 20 |named 'd|ata' in |
|00000d80| 61 20 64 61 74 61 20 66 | 6f 6c 64 65 72 20 6e 61 |a data f|older na|
|00000d90| 6d 65 64 20 27 50 72 69 | 6d 61 72 79 27 20 77 68 |med 'Pri|mary' wh|
|00000da0| 69 63 68 2c 20 69 6e 20 | 74 75 72 6e 2c 20 69 73 |ich, in |turn, is|
|00000db0| 20 73 74 6f 72 65 64 20 | 69 6e 20 61 20 64 61 74 | stored |in a dat|
|00000dc0| 61 20 66 6f 6c 64 65 72 | 20 6e 61 6d 65 64 20 27 |a folder| named '|
|00000dd0| 6d 79 46 69 6c 65 2e 66 | 69 74 73 27 2e 20 53 70 |myFile.f|its'. Sp|
|00000de0| 65 63 69 66 69 65 64 20 | 61 73 20 61 20 66 75 6c |ecified |as a ful|
|00000df0| 6c 20 70 61 74 68 20 74 | 68 65 20 77 61 76 65 20 |l path t|he wave |
|00000e00| 77 6f 75 6c 64 20 62 65 | 3a 0d 00 20 00 00 00 00 |would be|:.. ....|
|00000e10| 72 6f 6f 74 3a 27 6d 79 | 46 69 6c 65 2e 66 69 74 |root:'my|File.fit|
|00000e20| 73 27 3a 50 72 69 6d 61 | 72 79 3a 64 61 74 61 0d |s':Prima|ry:data.|
|00000e30| 00 c4 00 00 00 00 54 68 | 65 6e 20 74 6f 20 61 63 |......Th|en to ac|
|00000e40| 63 65 73 73 20 74 68 65 | 20 64 61 74 61 20 61 72 |cess the| data ar|
|00000e50| 72 61 79 20 76 69 61 20 | 74 68 65 20 69 74 65 6d |ray via |the item|
|00000e60| 73 20 69 6e 20 49 67 6f | 72 27 73 20 44 61 74 61 |s in Igo|r's Data|
|00000e70| 20 6f 72 20 41 6e 61 6c | 79 73 69 73 20 6f 72 20 | or Anal|ysis or |
|00000e80| 57 69 6e 64 6f 77 73 20 | 6d 65 6e 75 73 2c 20 79 |Windows |menus, y|
|00000e90| 6f 75 20 77 6f 75 6c 64 | 20 6e 65 65 64 20 74 6f |ou would| need to|
|00000ea0| 20 6d 6f 76 65 20 74 68 | 65 20 72 65 64 20 27 43 | move th|e red 'C|
|00000eb0| 75 72 72 65 6e 74 20 44 | 61 74 61 20 46 6f 6c 64 |urrent D|ata Fold|
|00000ec0| 65 72 27 20 61 72 72 6f | 77 20 73 6f 20 74 68 61 |er' arro|w so tha|
|00000ed0| 74 20 69 74 20 70 6f 69 | 6e 74 73 20 74 6f 20 74 |t it poi|nts to t|
|00000ee0| 68 65 20 27 50 72 69 6d | 61 72 79 27 20 64 61 74 |he 'Prim|ary' dat|
|00000ef0| 61 20 66 6f 6c 64 65 72 | 2e 0d 00 01 00 00 00 00 |a folder|........|
|00000f00| 0d 00 00 16 00 12 40 00 | 66 69 74 73 20 6f 6e 20 |......@.|fits on |
|00000f10| 74 68 65 20 69 6e 74 65 | 72 6e 65 74 3a 0d 00 00 |the inte|rnet:...|
|00000f20| ff ff 00 01 ff ff 00 00 | ff ff 00 00 00 00 00 00 |........|........|
|00000f30| 00 01 00 00 00 00 0d 00 | 00 1a 00 00 00 00 4e 65 |........|......Ne|
|00000f40| 77 73 67 72 6f 75 70 3a | 09 73 63 69 2e 61 73 74 |wsgroup:|.sci.ast|
|00000f50| 72 6f 2e 66 69 74 73 0d | 00 01 00 00 00 00 0d 00 |ro.fits.|........|
|00000f60| 00 35 00 00 00 00 68 74 | 74 70 3a 2f 2f 73 73 64 |.5....ht|tp://ssd|
|00000f70| 6f 6f 2e 67 73 66 63 2e | 6e 61 73 61 2e 67 6f 76 |oo.gsfc.|nasa.gov|
|00000f80| 2f 61 73 74 72 6f 2e 66 | 69 74 73 2f 66 69 74 73 |/astro.f|its/fits|
|00000f90| 5f 68 6f 6d 65 2e 68 74 | 6d 6c 0d 00 00 24 00 00 |_home.ht|ml...$..|
|00000fa0| 00 00 66 74 70 3a 2f 2f | 6e 73 73 64 63 2e 67 73 |..ftp://|nssdc.gs|
|00000fb0| 66 63 2e 6e 61 73 61 2e | 67 6f 76 2f 70 75 62 2f |fc.nasa.|gov/pub/|
|00000fc0| 66 69 74 73 2f 0d 00 01 | 00 00 00 00 0d 00 00 19 |fits/...|........|
|00000fd0| 00 00 00 00 68 74 74 70 | 3a 2f 2f 66 69 74 73 2e |....http|://fits.|
|00000fe0| 63 76 2e 6e 72 61 6f 2e | 65 64 75 2f 0d 00 00 1c |cv.nrao.|edu/....|
|00000ff0| 00 00 00 00 66 74 70 3a | 2f 2f 66 69 74 73 2e 63 |....ftp:|//fits.c|
|00001000| 76 2e 6e 72 61 6f 2e 65 | 64 75 2f 66 69 74 73 0d |v.nrao.e|du/fits.|
|00001010| 00 01 00 00 00 00 0d 00 | 00 35 00 00 00 00 68 74 |........|.5....ht|
|00001020| 74 70 3a 2f 2f 68 65 61 | 73 61 72 63 2e 67 73 66 |tp://hea|sarc.gsf|
|00001030| 63 2e 6e 61 73 61 2e 67 | 6f 76 2f 64 6f 63 73 2f |c.nasa.g|ov/docs/|
|00001040| 68 65 61 73 61 72 63 2f | 66 69 74 73 2e 68 74 6d |heasarc/|fits.htm|
|00001050| 6c 20 0d 00 00 27 00 00 | 00 00 66 74 70 3a 2f 2f |l ...'..|..ftp://|
|00001060| 68 65 61 73 61 72 63 2e | 67 73 66 63 2e 6e 61 73 |heasarc.|gsfc.nas|
|00001070| 61 2e 67 6f 76 2f 66 69 | 74 73 5f 69 6e 66 6f 2f |a.gov/fi|ts_info/|
|00001080| 0d 00 00 01 00 00 00 00 | 0d 00 00 28 00 00 00 00 |........|...(....|
|00001090| 68 74 74 70 3a 2f 2f 69 | 6d 61 67 65 6c 69 62 2e |http://i|magelib.|
|000010a0| 6e 63 73 61 2e 75 69 75 | 63 2e 65 64 75 2f 69 6d |ncsa.uiu|c.edu/im|
|000010b0| 61 67 65 6c 69 62 2f 0d | 00 01 00 00 00 00 0d 00 |agelib/.|........|
|000010c0| 00 2e 00 00 00 00 68 74 | 74 70 3a 2f 2f 77 77 77 |......ht|tp://www|
|000010d0| 2e 73 74 73 63 69 2e 65 | 64 75 2f 61 73 74 72 6f |.stsci.e|du/astro|
|000010e0| 77 65 62 2f 63 61 74 2d | 63 65 6e 74 65 72 2e 68 |web/cat-|center.h|
|000010f0| 74 6d 6c 0d 00 01 00 00 | 00 00 0d 00 00 0c 00 12 |tml.....|........|
|00001100| 00 00 54 68 65 20 66 75 | 74 75 72 65 3a 0d 00 00 |..The fu|ture:...|
|00001110| ff ff 00 01 ff ff 00 00 | ff ff 00 00 00 00 00 00 |........|........|
|00001120| 00 01 00 00 00 00 0d 00 | 00 f7 00 00 00 00 49 74 |........|......It|
|00001130| 20 69 73 20 68 6f 70 65 | 64 20 74 68 61 74 20 74 | is hope|d that t|
|00001140| 68 69 73 20 70 61 63 6b | 61 67 65 20 69 73 20 75 |his pack|age is u|
|00001150| 73 65 66 75 6c 20 65 6e | 6f 75 67 68 20 74 6f 20 |seful en|ough to |
|00001160| 70 72 6f 6d 70 74 20 74 | 68 65 20 75 73 65 72 20 |prompt t|he user |
|00001170| 63 6f 6d 6d 75 6e 69 74 | 79 20 74 6f 20 65 78 70 |communit|y to exp|
|00001180| 61 6e 64 20 61 6e 64 20 | 69 6d 70 72 6f 76 65 20 |and and |improve |
|00001190| 74 68 65 20 63 6f 64 65 | 20 70 72 6f 76 69 64 65 |the code| provide|
|000011a0| 64 20 68 65 72 65 2e 20 | 48 6f 77 65 76 65 72 2c |d here. |However,|
|000011b0| 20 74 68 65 20 61 75 74 | 68 6f 72 20 77 69 6c 6c | the aut|hor will|
|000011c0| 20 65 6e 74 65 72 74 61 | 69 6e 20 73 75 67 67 65 | enterta|in sugge|
|000011d0| 73 74 69 6f 6e 73 20 66 | 6f 72 20 69 6d 70 72 6f |stions f|or impro|
|000011e0| 76 65 6d 65 6e 74 20 61 | 73 20 74 69 6d 65 20 61 |vement a|s time a|
|000011f0| 6c 6c 6f 77 73 2e 20 53 | 65 6e 64 20 79 6f 75 72 |llows. S|end your|
|00001200| 20 69 6d 70 72 6f 76 65 | 6d 65 6e 74 73 20 61 6e | improve|ments an|
|00001210| 64 2f 6f 72 20 73 75 67 | 67 65 73 74 69 6f 6e 73 |d/or sug|gestions|
|00001220| 20 74 6f 3a 0d 00 00 2a | 00 00 00 00 6c 61 72 72 | to:...*|....larr|
|00001230| 79 68 40 57 61 76 65 4d | 65 74 72 69 63 73 2e 63 |yh@WaveM|etrics.c|
|00001240| 6f 6d 20 28 4c 61 72 72 | 79 20 48 75 74 63 68 69 |om (Larr|y Hutchi|
|00001250| 6e 73 6f 6e 29 0d 00 01 | 00 00 00 00 0d 00 00 35 |nson)...|.......5|
|00001260| 00 00 00 00 46 75 74 75 | 72 65 20 76 65 72 73 69 |....Futu|re versi|
|00001270| 6f 6e 73 20 77 69 6c 6c | 20 62 65 20 70 6c 61 63 |ons will| be plac|
|00001280| 65 64 20 6f 6e 20 74 68 | 65 20 49 67 6f 72 20 66 |ed on th|e Igor f|
|00001290| 74 70 20 73 69 74 65 3a | 0d 00 00 2d 00 00 00 00 |tp site:|...-....|
|000012a0| 66 74 70 2f 2f 64 33 31 | 72 7a 30 2e 73 74 61 6e |ftp//d31|rz0.stan|
|000012b0| 66 6f 72 64 2e 65 64 75 | 2f 57 61 76 65 4d 65 74 |ford.edu|/WaveMet|
|000012c0| 72 69 63 73 2f 49 67 6f | 72 50 72 6f 0d 00 00 01 |rics/Igo|rPro....|
|000012d0| 00 00 00 00 0d 00 00 00 | 00 00 00 00 00 00 02 5a |........|.......Z|
|000012e0| 00 00 02 84 00 00 02 98 | 00 00 02 a0 00 00 02 cc |........|........|
|000012f0| 00 00 02 d4 00 00 04 0c | 00 00 04 14 00 00 05 ea |........|........|
|00001300| 00 00 05 f2 00 00 06 76 | 00 00 06 98 00 00 06 de |.......v|........|
|00001310| 00 00 06 e6 00 00 07 ae | 00 00 07 b6 00 00 08 fc |........|........|
|00001320| 00 00 09 04 00 00 09 2a | 00 00 0a 78 00 00 0a 96 |.......*|...x....|
|00001330| 00 00 0a 9e 00 00 0a a6 | 00 00 0a ce 00 00 0c 7c |........|.......||
|00001340| 00 00 0c a2 00 00 0d 6c | 00 00 0d 74 00 00 0d a2 |.......l|...t....|
|00001350| 00 00 0d aa 00 00 0d ca | 00 00 0d d2 00 00 0e 0e |........|........|
|00001360| 00 00 0e 38 00 00 0e 40 | 00 00 0e 60 00 00 0e 82 |...8...@|...`....|
|00001370| 00 00 0e 8a 00 00 0e c6 | 00 00 0e f4 00 00 0e fc |........|........|
|00001380| 00 00 0f 2a 00 00 0f 32 | 00 00 0f 66 00 00 0f 6e |...*...2|...f...n|
|00001390| 00 00 0f 92 00 00 0f 9a | 00 00 10 98 00 00 10 c8 |........|........|
|000013a0| 00 00 10 d0 00 00 11 0c | 00 00 11 40 00 00 11 48 |........|...@...H|
|000013b0| 00 01 4e 6f 72 6d 61 6c | 2b 00 00 00 00 00 00 00 |..Normal|+.......|
|000013c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013d0| 00 00 00 00 ff ff 00 00 | 00 00 01 d4 00 00 00 00 |........|........|
|000013e0| 01 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 0a 00 00 |........|........|
|00001410| 00 00 00 00 7f ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001420| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 03 47 65 |........|......Ge|
|00001430| 6e 65 76 61 00 00 00 0b | a2 00 01 00 02 00 00 ff |neva....|........|
|00001440| ff ff ff ff ff 00 01 cc | cc 00 01 00 01 00 02 00 |........|........|
|00001450| 00 00 00 00 00 00 08 00 | 00 00 00 08 87 00 64 00 |........|......d.|
|00001460| 0a 54 45 58 54 49 47 52 | 30 00 00 00 00 00 00 00 |.TEXTIGR|0.......|
|00001470| 00 00 01 00 00 05 89 00 | 01 00 00 02 64 41 75 78 |........|....dAux|
|00001480| 50 72 6f 63 73 00 30 00 | 00 00 00 00 00 00 00 00 |Procs.0.|........|
|00001490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 41 75 78 |........|.....Aux|
|000014c0| 50 72 6f 63 73 00 00 00 | 00 00 00 00 00 00 00 00 |Procs...|........|
|000014d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 00 00 00 00 00 00 00 23 | 70 72 61 67 6d 61 20 72 |.......#|pragma r|
|00001500| 74 47 6c 6f 62 61 6c 73 | 3d 31 09 09 2f 2f 20 55 |tGlobals|=1..// U|
|00001510| 73 65 20 6d 6f 64 65 72 | 6e 20 67 6c 6f 62 61 6c |se moder|n global|
|00001520| 20 61 63 63 65 73 73 20 | 6d 65 74 68 6f 64 2e 0d | access |method..|
|00001530| 0d 0d 2f 2f 20 75 73 65 | 64 20 64 75 72 69 6e 67 |..// use|d during|
|00001540| 20 64 65 62 75 67 67 69 | 6e 67 3b 20 6d 69 67 68 | debuggi|ng; migh|
|00001550| 74 20 62 65 20 75 73 65 | 66 75 6c 20 73 6f 6d 65 |t be use|ful some|
|00001560| 64 61 79 0d 46 75 6e 63 | 74 69 6f 6e 20 44 75 6d |day.Func|tion Dum|
|00001570| 70 46 49 54 53 28 6e 6d | 61 78 2c 74 6f 57 61 76 |pFITS(nm|ax,toWav|
|00001580| 65 29 0d 09 56 61 72 69 | 61 62 6c 65 20 6e 6d 61 |e)..Vari|able nma|
|00001590| 78 2c 74 6f 57 61 76 65 | 0d 09 0d 09 56 61 72 69 |x,toWave|....Vari|
|000015a0| 61 62 6c 65 20 72 65 66 | 6e 75 6d 0d 09 53 74 72 |able ref|num..Str|
|000015b0| 69 6e 67 20 70 61 74 68 | 3d 20 53 74 72 56 61 72 |ing path|= StrVar|
|000015c0| 4f 72 44 65 66 61 75 6c | 74 28 22 72 6f 6f 74 3a |OrDefaul|t("root:|
|000015d0| 50 61 63 6b 61 67 65 73 | 3a 46 49 54 53 3a 74 68 |Packages|:FITS:th|
|000015e0| 65 50 61 74 68 22 2c 22 | 22 29 0d 09 69 66 28 20 |ePath","|")..if( |
|000015f0| 43 6d 70 53 74 72 28 70 | 61 74 68 2c 22 5f 63 75 |CmpStr(p|ath,"_cu|
|00001600| 72 72 65 6e 74 5f 22 29 | 3d 3d 30 20 29 0d 09 09 |rrent_")|==0 )...|
|00001610| 4f 70 65 6e 2f 52 2f 54 | 3d 22 3f 3f 3f 3f 22 20 |Open/R/T|="????" |
|00001620| 72 65 66 6e 75 6d 0d 09 | 65 6c 73 65 0d 09 09 4f |refnum..|else...O|
|00001630| 70 65 6e 2f 52 2f 50 3d | 24 70 61 74 68 2f 54 3d |pen/R/P=|$path/T=|
|00001640| 22 3f 3f 3f 3f 22 20 72 | 65 66 6e 75 6d 0d 09 65 |"????" r|efnum..e|
|00001650| 6e 64 69 66 0d 09 69 66 | 28 20 72 65 66 6e 75 6d |ndif..if|( refnum|
|00001660| 3d 3d 30 20 29 0d 09 09 | 72 65 74 75 72 6e 20 30 |==0 )...|return 0|
|00001670| 0d 09 65 6e 64 69 66 0d | 0d 09 53 74 72 69 6e 67 |..endif.|..String|
|00001680| 20 6e 62 20 3d 20 22 22 | 0d 09 0d 09 46 53 74 61 | nb = ""|....FSta|
|00001690| 74 75 73 20 72 65 66 6e | 75 6d 0d 09 70 72 69 6e |tus refn|um..prin|
|000016a0| 74 20 22 46 49 54 53 20 | 44 75 6d 70 20 66 72 6f |t "FITS |Dump fro|
|000016b0| 6d 22 2c 53 5f 66 69 6c | 65 4e 61 6d 65 0d 0d 09 |m",S_fil|eName...|
|000016c0| 69 66 28 20 74 6f 57 61 | 76 65 20 29 0d 09 09 4d |if( toWa|ve )...M|
|000016d0| 61 6b 65 2f 4f 2f 54 2f | 4e 3d 28 6e 6d 61 78 29 |ake/O/T/|N=(nmax)|
|000016e0| 20 24 53 5f 66 69 6c 65 | 4e 61 6d 65 0d 09 09 57 | $S_file|Name...W|
|000016f0| 61 76 65 2f 54 20 74 77 | 61 76 3d 20 24 53 5f 66 |ave/T tw|av= $S_f|
|00001700| 69 6c 65 4e 61 6d 65 0d | 09 65 6c 73 65 0d 09 09 |ileName.|.else...|
|00001710| 6e 62 20 3d 20 53 5f 66 | 69 6c 65 4e 61 6d 65 0d |nb = S_f|ileName.|
|00001720| 09 09 4e 65 77 4e 6f 74 | 65 62 6f 6f 6b 2f 4e 3d |..NewNot|ebook/N=|
|00001730| 24 6e 62 2f 46 3d 31 2f | 56 3d 31 2f 57 3d 28 35 |$nb/F=1/|V=1/W=(5|
|00001740| 2c 34 30 2c 36 32 33 2c | 33 33 37 29 20 0d 09 09 |,40,623,|337) ...|
|00001750| 4e 6f 74 65 62 6f 6f 6b | 20 24 6e 62 20 64 65 66 |Notebook| $nb def|
|00001760| 61 75 6c 74 54 61 62 3d | 33 36 2c 20 73 74 61 74 |aultTab=|36, stat|
|00001770| 75 73 57 69 64 74 68 3d | 32 33 38 2c 20 70 61 67 |usWidth=|238, pag|
|00001780| 65 4d 61 72 67 69 6e 73 | 3d 7b 37 32 2c 37 32 2c |eMargins|={72,72,|
|00001790| 37 32 2c 37 32 7d 0d 09 | 09 4e 6f 74 65 62 6f 6f |72,72}..|.Noteboo|
|000017a0| 6b 20 24 6e 62 20 73 68 | 6f 77 52 75 6c 65 72 3d |k $nb sh|owRuler=|
|000017b0| 30 2c 20 72 75 6c 65 72 | 55 6e 69 74 73 3d 31 2c |0, ruler|Units=1,|
|000017c0| 20 75 70 64 61 74 69 6e | 67 3d 7b 31 2c 20 36 30 | updatin|g={1, 60|
|000017d0| 7d 0d 09 09 4e 6f 74 65 | 62 6f 6f 6b 20 24 6e 62 |}...Note|book $nb|
|000017e0| 20 6e 65 77 52 75 6c 65 | 72 3d 4e 6f 72 6d 61 6c | newRule|r=Normal|
|000017f0| 2c 20 6a 75 73 74 69 66 | 69 63 61 74 69 6f 6e 3d |, justif|ication=|
|00001800| 30 2c 20 6d 61 72 67 69 | 6e 73 3d 7b 30 2c 30 2c |0, margi|ns={0,0,|
|00001810| 35 37 36 7d 2c 20 73 70 | 61 63 69 6e 67 3d 7b 30 |576}, sp|acing={0|
|00001820| 2c 30 2c 30 7d 2c 20 74 | 61 62 73 3d 7b 7d 2c 20 |,0,0}, t|abs={}, |
|00001830| 72 75 6c 65 72 44 65 66 | 61 75 6c 74 73 3d 7b 22 |rulerDef|aults={"|
|00001840| 4d 6f 6e 61 63 6f 22 2c | 31 30 2c 30 2c 28 30 2c |Monaco",|10,0,(0,|
|00001850| 30 2c 30 29 7d 0d 09 09 | 4e 6f 74 65 62 6f 6f 6b |0,0)}...|Notebook|
|00001860| 20 24 6e 62 20 72 75 6c | 65 72 3d 4e 6f 72 6d 61 | $nb rul|er=Norma|
|00001870| 6c 0d 09 65 6e 64 69 66 | 0d 0d 09 53 74 72 69 6e |l..endif|...Strin|
|00001880| 67 20 73 0d 09 73 3d 20 | 50 61 64 53 74 72 69 6e |g s..s= |PadStrin|
|00001890| 67 28 22 22 2c 38 30 2c | 30 29 0d 09 0d 09 76 61 |g("",80,|0)....va|
|000018a0| 72 69 61 62 6c 65 20 69 | 3d 30 0d 09 64 6f 0d 09 |riable i|=0..do..|
|000018b0| 09 46 53 74 61 74 75 73 | 20 72 65 66 6e 75 6d 0d |.FStatus| refnum.|
|000018c0| 09 09 0d 09 09 69 66 28 | 20 56 5f 66 69 6c 65 50 |.....if(| V_fileP|
|000018d0| 6f 73 20 3d 3d 20 20 56 | 5f 6c 6f 67 45 4f 46 20 |os == V|_logEOF |
|000018e0| 29 0d 09 09 09 62 72 65 | 61 6b 0d 09 09 65 6e 64 |)....bre|ak...end|
|000018f0| 69 66 0d 09 09 69 66 28 | 20 56 5f 6c 6f 67 45 4f |if...if(| V_logEO|
|00001900| 46 20 3c 20 28 56 5f 66 | 69 6c 65 50 6f 73 2b 32 |F < (V_f|ilePos+2|
|00001910| 38 38 30 29 20 29 0d 09 | 09 09 70 72 69 6e 74 20 |880) )..|..print |
|00001920| 56 5f 6c 6f 67 45 4f 46 | 2d 56 5f 66 69 6c 65 50 |V_logEOF|-V_fileP|
|00001930| 6f 73 2c 22 62 79 74 65 | 73 20 75 6e 72 65 61 64 |os,"byte|s unread|
|00001940| 22 0d 09 09 09 62 72 65 | 61 6b 0d 09 09 65 6e 64 |"....bre|ak...end|
|00001950| 69 66 0d 09 09 0d 09 09 | 46 42 69 6e 52 65 61 64 |if......|FBinRead|
|00001960| 20 72 65 66 6e 75 6d 2c | 73 0d 09 09 69 66 28 20 | refnum,|s...if( |
|00001970| 74 6f 57 61 76 65 20 29 | 0d 09 09 09 74 77 61 76 |toWave )|....twav|
|00001980| 5b 69 5d 3d 20 73 0d 09 | 09 65 6c 73 65 0d 09 09 |[i]= s..|.else...|
|00001990| 09 41 70 70 65 6e 64 4e | 42 28 6e 62 2c 73 29 0d |.AppendN|B(nb,s).|
|000019a0| 09 09 65 6e 64 69 66 0d | 09 09 69 2b 3d 31 0d 09 |..endif.|..i+=1..|
|000019b0| 77 68 69 6c 65 28 69 3c | 6e 6d 61 78 29 0d 09 69 |while(i<|nmax)..i|
|000019c0| 66 28 20 74 6f 57 61 76 | 65 20 29 0d 09 09 52 65 |f( toWav|e )...Re|
|000019d0| 64 69 6d 65 6e 73 69 6f | 6e 2f 4e 3d 28 69 29 20 |dimensio|n/N=(i) |
|000019e0| 74 77 61 76 0d 09 09 43 | 68 65 63 6b 44 69 73 70 |twav...C|heckDisp|
|000019f0| 6c 61 79 65 64 20 74 77 | 61 76 0d 09 09 69 66 28 |layed tw|av...if(|
|00001a00| 20 56 5f 46 6c 61 67 3d | 3d 30 20 29 0d 09 09 09 | V_Flag=|=0 )....|
|00001a10| 45 64 69 74 20 74 77 61 | 76 0d 09 09 09 45 78 65 |Edit twa|v....Exe|
|00001a20| 63 75 74 65 20 22 4d 6f | 64 69 66 79 54 61 62 6c |cute "Mo|difyTabl|
|00001a30| 65 20 66 6f 6e 74 5b 31 | 5d 3d 5c 22 4d 6f 6e 61 |e font[1|]=\"Mona|
|00001a40| 63 6f 5c 22 2c 73 69 7a | 65 5b 31 5d 3d 39 2c 61 |co\",siz|e[1]=9,a|
|00001a50| 6c 69 67 6e 6d 65 6e 74 | 5b 31 5d 3d 30 2c 77 69 |lignment|[1]=0,wi|
|00001a60| 64 74 68 5b 31 5d 3d 35 | 34 36 22 0d 09 09 65 6e |dth[1]=5|46"...en|
|00001a70| 64 69 66 0d 09 65 6e 64 | 69 66 0d 65 6e 64 0d 0d |dif..end|if.end..|
|00001a80| 00 00 01 00 00 00 02 12 | 00 00 01 12 00 00 00 52 |........|.......R|
|00001a90| 61 20 70 72 69 6d 61 72 | 79 20 64 61 74 61 20 61 |a primar|y data a|
|00001aa0| 72 72 61 79 2c 20 74 68 | 65 20 64 61 74 61 20 77 |rray, th|e data w|
|00001ab0| 0a 41 75 78 50 72 6f 63 | 73 54 30 00 02 00 00 00 |.AuxProc|sT0.....|
|00001ac0| 54 45 58 54 49 47 52 30 | 00 00 00 00 00 00 00 00 |TEXTIGR0|........|
|00001ad0| 00 00 54 45 58 54 49 47 | 52 30 00 00 00 00 00 00 |..TEXTIG|R0......|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 ad 8a bb b1 00 00 | 05 89 00 00 02 64 6e 20 |........|.....dn |
|00001b00| 74 75 72 6e 2c 20 69 73 | 20 73 74 6f 72 65 64 20 |turn, is| stored |
|00001b10| 69 6e 20 61 20 64 61 74 | 61 20 66 6f 6c 64 65 72 |in a dat|a folder|
|00001b20| 20 6e 61 6d 65 64 20 27 | 6d 79 46 69 6c 65 2e 66 | named '|myFile.f|
|00001b30| 69 74 73 27 2e 20 53 70 | 65 63 69 66 69 65 64 20 |its'. Sp|ecified |
|00001b40| 61 73 20 61 20 66 75 6c | 6c 20 70 61 74 68 20 74 |as a ful|l path t|
|00001b50| 68 65 20 77 61 76 65 20 | 77 6f 75 6c 64 20 62 65 |he wave |would be|
|00001b60| 3a 0d 00 20 00 00 00 00 | 72 6f 6f 74 3a 27 6d 79 |:.. ....|root:'my|
|00001b70| 46 69 6c 65 2e 66 69 74 | 73 27 3a 50 72 69 6d 61 |File.fit|s':Prima|
|00001b80| 00 00 00 48 00 0a 47 65 | 6e 65 76 61 00 00 00 00 |...H..Ge|neva....|
|00001b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ba0| 00 00 00 00 00 00 00 00 | 00 06 00 bb 01 89 01 e2 |........|........|
|00001bb0| 03 7d 00 28 00 05 01 4f | 01 f9 00 00 00 00 00 00 |.}.(...O|........|
|00001bc0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 78 |........|.......x|
|00001bd0| 00 03 00 00 00 48 00 48 | 00 00 00 00 02 da 02 28 |.....H.H|.......(|
|00001be0| ff e1 ff e2 02 f9 02 46 | 03 47 05 28 03 fc 00 02 |.......F|.G.(....|
|00001bf0| 00 00 00 48 00 48 00 00 | 00 00 02 da 02 28 00 01 |...H.H..|.....(..|
|00001c00| 00 00 00 64 00 00 00 01 | 00 01 01 01 00 00 00 01 |...d....|........|
|00001c10| 27 0f 00 01 00 01 00 00 | 00 00 00 00 00 00 00 00 |'.......|........|
|00001c20| 00 00 00 02 00 19 01 90 | 00 00 00 00 00 40 00 00 |........|.....@..|
|00001c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c40| 00 00 00 00 00 00 00 00 | 00 00 00 46 00 01 00 00 |........|...F....|
|00001c50| 7f ff 00 00 00 48 00 48 | 00 48 00 48 00 24 00 00 |.....H.H|.H.H.$..|
|00001c60| 00 00 00 24 00 00 00 00 | 00 01 00 01 00 00 00 00 |...$....|........|
|00001c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 14 |........|........|
|00001c80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c90| 0a 00 00 00 01 00 00 00 | 02 12 00 00 01 12 00 00 |........|........|
|00001ca0| 00 52 01 40 af 08 16 68 | 00 00 00 1c 00 52 00 01 |.R.@...h|.....R..|
|00001cb0| 4d 50 53 52 00 01 00 12 | 57 4d 54 31 00 00 00 2a |MPSR....|WMT1...*|
|00001cc0| 03 ed ff ff 00 00 00 00 | 01 40 ae 50 03 ee ff ff |........|.@.P....|
|00001cd0| 00 00 00 4c 01 40 b2 5c | 00 80 ff ff 00 00 00 c8 |...L.@.\|........|
|00001ce0| 01 40 ae f8 00 08 00 00 | 00 00 42 56 00 64 00 0a |.@......|..BV.d..|
|00001cf0| 54 45 58 54 49 47 52 30 | 00 00 00 00 00 00 00 00 |TEXTIGR0|........|
|00001d00| 00 01 00 00 3f 58 00 01 | 00 00 02 64 46 49 54 53 |....?X..|...dFITS|
|00001d10| 20 4c 6f 61 64 65 72 00 | 30 00 00 00 00 00 00 00 | Loader.|0.......|
|00001d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 46 49 54 53 |........|....FITS|
|00001d50| 20 4c 6f 61 64 65 72 00 | 00 00 00 00 00 00 00 00 | Loader.|........|
|00001d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d80| 00 00 00 00 00 00 23 70 | 72 61 67 6d 61 20 72 74 |......#p|ragma rt|
|00001d90| 47 6c 6f 62 61 6c 73 3d | 31 09 09 2f 2f 20 55 73 |Globals=|1..// Us|
|00001da0| 65 20 6d 6f 64 65 72 6e | 20 67 6c 6f 62 61 6c 20 |e modern| global |
|00001db0| 61 63 63 65 73 73 20 6d | 65 74 68 6f 64 2e 0d 0d |access m|ethod...|
|00001dc0| 23 69 6e 63 6c 75 64 65 | 20 3c 41 75 74 6f 73 69 |#include| <Autosi|
|00001dd0| 7a 65 20 49 6d 61 67 65 | 73 3e 0d 0d 2f 2f 20 46 |ze Image|s>..// F|
|00001de0| 49 54 53 20 4c 6f 61 64 | 65 72 20 56 65 72 73 69 |ITS Load|er Versi|
|00001df0| 6f 6e 20 31 2e 30 3b 20 | 46 6f 72 20 75 73 65 20 |on 1.0; |For use |
|00001e00| 77 69 74 68 20 49 67 6f | 72 20 50 72 6f 20 33 2e |with Igo|r Pro 3.|
|00001e10| 30 2e 30 20 6f 72 20 6c | 61 74 65 72 0d 2f 2f 09 |0.0 or l|ater.//.|
|00001e20| 4c 61 72 72 79 20 48 75 | 74 63 68 69 6e 73 6f 6e |Larry Hu|tchinson|
|00001e30| 2c 20 57 61 76 65 4d 65 | 74 72 69 63 73 20 69 6e |, WaveMe|trics in|
|00001e40| 63 2e 2c 20 39 36 30 32 | 32 37 0d 2f 2f 0d 2f 2f |c., 9602|27.//.//|
|00001e50| 09 54 68 69 73 20 63 6f | 64 65 20 69 73 20 69 6e |.This co|de is in|
|00001e60| 74 65 6e 64 65 64 20 74 | 6f 20 62 65 20 61 20 73 |tended t|o be a s|
|00001e70| 74 61 72 74 69 6e 67 20 | 70 6f 69 6e 74 20 66 6f |tarting |point fo|
|00001e80| 72 20 61 20 75 73 65 72 | 20 73 75 70 70 6f 72 74 |r a user| support|
|00001e90| 65 64 20 61 73 74 72 6f | 20 70 61 63 6b 61 67 65 |ed astro| package|
|00001ea0| 2e 0d 2f 2f 09 44 6f 63 | 75 6d 65 6e 74 61 74 69 |..//.Doc|umentati|
|00001eb0| 6f 6e 20 69 73 20 70 72 | 6f 76 69 64 65 64 20 69 |on is pr|ovided i|
|00001ec0| 6e 20 61 6e 20 65 78 61 | 6d 70 6c 65 20 65 78 70 |n an exa|mple exp|
|00001ed0| 65 72 69 6d 65 6e 74 20 | 6e 61 6d 65 64 20 27 46 |eriment |named 'F|
|00001ee0| 49 54 53 20 4c 6f 61 64 | 65 72 20 44 65 6d 6f 27 |ITS Load|er Demo'|
|00001ef0| 0d 0d 0d 4d 61 63 72 6f | 20 43 72 65 61 74 65 46 |...Macro| CreateF|
|00001f00| 49 54 53 4c 6f 61 64 65 | 72 28 29 0d 09 44 6f 57 |ITSLoade|r()..DoW|
|00001f10| 69 6e 64 6f 77 2f 46 20 | 46 49 54 53 50 61 6e 65 |indow/F |FITSPane|
|00001f20| 6c 0d 09 69 66 28 20 56 | 5f 46 6c 61 67 20 21 3d |l..if( V|_Flag !=|
|00001f30| 20 30 20 29 0d 09 09 72 | 65 74 75 72 6e 0d 09 65 | 0 )...r|eturn..e|
|00001f40| 6e 64 69 66 0d 09 0d 09 | 53 74 72 69 6e 67 20 64 |ndif....|String d|
|00001f50| 66 53 61 76 3d 20 47 65 | 74 44 61 74 61 46 6f 6c |fSav= Ge|tDataFol|
|00001f60| 64 65 72 28 31 29 0d 09 | 4e 65 77 44 61 74 61 46 |der(1)..|NewDataF|
|00001f70| 6f 6c 64 65 72 2f 4f 2f | 53 20 72 6f 6f 74 3a 50 |older/O/|S root:P|
|00001f80| 61 63 6b 61 67 65 73 0d | 09 4e 65 77 44 61 74 61 |ackages.|.NewData|
|00001f90| 46 6f 6c 64 65 72 2f 4f | 2f 53 20 46 49 54 53 0d |Folder/O|/S FITS.|
|00001fa0| 09 0d 09 56 61 72 69 61 | 62 6c 65 2f 47 20 77 61 |...Varia|ble/G wa|
|00001fb0| 6e 74 48 65 61 64 65 72 | 3d 31 0d 09 56 61 72 69 |ntHeader|=1..Vari|
|00001fc0| 61 62 6c 65 2f 47 20 77 | 61 6e 74 48 69 73 74 6f |able/G w|antHisto|
|00001fd0| 72 79 3d 30 0d 09 56 61 | 72 69 61 62 6c 65 2f 47 |ry=0..Va|riable/G|
|00001fe0| 20 77 61 6e 74 43 6f 6d | 6d 65 6e 74 73 3d 30 0d | wantCom|ments=0.|
|00001ff0| 09 56 61 72 69 61 62 6c | 65 2f 47 20 77 61 6e 74 |.Variabl|e/G want|
|00002000| 41 75 74 6f 44 69 73 70 | 6c 61 79 3d 20 31 0d 09 |AutoDisp|lay= 1..|
|00002010| 56 61 72 69 61 62 6c 65 | 2f 47 20 70 72 6f 6d 6f |Variable|/G promo|
|00002020| 74 65 49 6e 74 73 3d 30 | 09 09 09 2f 2f 20 69 66 |teInts=0|...// if|
|00002030| 20 74 72 75 65 2c 20 74 | 68 65 6e 20 69 6e 74 73 | true, t|hen ints|
|00002040| 20 61 72 65 20 63 6f 6e | 76 65 72 74 65 64 20 66 | are con|verted f|
|00002050| 6c 6f 61 74 73 0d 09 56 | 61 72 69 61 62 6c 65 2f |loats..V|ariable/|
|00002060| 47 20 61 73 6b 69 66 53 | 69 7a 65 3d 20 31 65 36 |G askifS|ize= 1e6|
|00002070| 09 09 09 2f 2f 20 61 73 | 6b 20 69 66 20 6f 6b 20 |...// as|k if ok |
|00002080| 74 6f 20 6c 6f 61 64 20 | 69 66 20 64 61 74 61 20 |to load |if data |
|00002090| 73 69 7a 65 20 69 73 20 | 62 69 67 67 65 72 20 74 |size is |bigger t|
|000020a0| 68 61 6e 20 74 68 69 73 | 0d 09 0d 09 53 74 72 69 |han this|....Stri|
|000020b0| 6e 67 2f 47 20 74 68 65 | 50 61 74 68 3d 20 22 5f |ng/G the|Path= "_|
|000020c0| 63 75 72 72 65 6e 74 5f | 22 0d 09 53 65 74 44 61 |current_|"..SetDa|
|000020d0| 74 61 46 6f 6c 64 65 72 | 20 64 66 53 61 76 0d 0d |taFolder| dfSav..|
|000020e0| 09 46 49 54 53 50 61 6e | 65 6c 28 29 0d 65 6e 64 |.FITSPan|el().end|
|000020f0| 0d 09 0d 0d 0d 0d 0d 46 | 75 6e 63 74 69 6f 6e 20 |.......F|unction |
|00002100| 4c 6f 61 64 46 49 54 53 | 28 29 0d 09 56 61 72 69 |LoadFITS|()..Vari|
|00002110| 61 62 6c 65 20 64 6f 48 | 65 61 64 65 72 3d 20 4e |able doH|eader= N|
|00002120| 75 6d 56 61 72 4f 72 44 | 65 66 61 75 6c 74 28 22 |umVarOrD|efault("|
|00002130| 72 6f 6f 74 3a 50 61 63 | 6b 61 67 65 73 3a 46 49 |root:Pac|kages:FI|
|00002140| 54 53 3a 77 61 6e 74 48 | 65 61 64 65 72 22 2c 31 |TS:wantH|eader",1|
|00002150| 29 09 09 09 2f 2f 20 73 | 65 74 20 74 72 75 65 20 |)...// s|et true |
|00002160| 74 6f 20 70 75 74 20 68 | 65 61 64 65 72 28 73 29 |to put h|eader(s)|
|00002170| 20 69 6e 20 61 20 6e 6f | 74 65 62 6f 6f 6b 0d 09 | in a no|tebook..|
|00002180| 56 61 72 69 61 62 6c 65 | 20 64 6f 48 69 73 74 6f |Variable| doHisto|
|00002190| 72 79 3d 20 4e 75 6d 56 | 61 72 4f 72 44 65 66 61 |ry= NumV|arOrDefa|
|000021a0| 75 6c 74 28 22 72 6f 6f | 74 3a 50 61 63 6b 61 67 |ult("roo|t:Packag|
|000021b0| 65 73 3a 46 49 54 53 3a | 77 61 6e 74 48 69 73 74 |es:FITS:|wantHist|
|000021c0| 6f 72 79 22 2c 30 29 09 | 09 09 2f 2f 20 73 65 74 |ory",0).|..// set|
|000021d0| 20 74 72 75 65 20 74 6f | 20 70 75 74 20 48 49 53 | true to| put HIS|
|000021e0| 54 4f 52 59 20 69 6e 20 | 74 68 65 20 6e 6f 74 65 |TORY in |the note|
|000021f0| 62 6f 6f 6b 0d 09 56 61 | 72 69 61 62 6c 65 20 64 |book..Va|riable d|
|00002200| 6f 43 6f 6d 6d 65 6e 74 | 3d 20 4e 75 6d 56 61 72 |oComment|= NumVar|
|00002210| 4f 72 44 65 66 61 75 6c | 74 28 22 72 6f 6f 74 3a |OrDefaul|t("root:|
|00002220| 50 61 63 6b 61 67 65 73 | 3a 46 49 54 53 3a 77 61 |Packages|:FITS:wa|
|00002230| 6e 74 43 6f 6d 6d 65 6e | 74 73 22 2c 30 29 09 09 |ntCommen|ts",0)..|
|00002240| 2f 2f 20 64 69 74 74 6f | 20 66 6f 72 20 43 4f 4d |// ditto| for COM|
|00002250| 4d 45 4e 54 0d 09 56 61 | 72 69 61 62 6c 65 20 64 |MENT..Va|riable d|
|00002260| 6f 41 75 74 6f 44 69 73 | 70 3d 20 4e 75 6d 56 61 |oAutoDis|p= NumVa|
|00002270| 72 4f 72 44 65 66 61 75 | 6c 74 28 22 72 6f 6f 74 |rOrDefau|lt("root|
|00002280| 3a 50 61 63 6b 61 67 65 | 73 3a 46 49 54 53 3a 77 |:Package|s:FITS:w|
|00002290| 61 6e 74 41 75 74 6f 44 | 69 73 70 6c 61 79 22 2c |antAutoD|isplay",|
|000022a0| 30 29 09 2f 2f 20 74 72 | 75 65 20 74 6f 20 64 69 |0).// tr|ue to di|
|000022b0| 73 70 6c 61 79 20 64 61 | 74 61 0d 09 56 61 72 69 |splay da|ta..Vari|
|000022c0| 61 62 6c 65 20 64 6f 49 | 6e 74 32 46 6c 6f 61 74 |able doI|nt2Float|
|000022d0| 3d 20 4e 75 6d 56 61 72 | 4f 72 44 65 66 61 75 6c |= NumVar|OrDefaul|
|000022e0| 74 28 22 72 6f 6f 74 3a | 50 61 63 6b 61 67 65 73 |t("root:|Packages|
|000022f0| 3a 46 49 54 53 3a 70 72 | 6f 6d 6f 74 65 49 6e 74 |:FITS:pr|omoteInt|
|00002300| 73 22 2c 31 29 09 09 2f | 2f 20 74 72 75 65 20 63 |s",1)../|/ true c|
|00002310| 6f 6e 76 65 72 74 20 69 | 6e 74 73 20 74 6f 20 66 |onvert i|nts to f|
|00002320| 6c 6f 61 74 73 0d 09 56 | 61 72 69 61 62 6c 65 20 |loats..V|ariable |
|00002330| 62 69 67 42 79 74 65 73 | 3d 20 4e 75 6d 56 61 72 |bigBytes|= NumVar|
|00002340| 4f 72 44 65 66 61 75 6c | 74 28 22 72 6f 6f 74 3a |OrDefaul|t("root:|
|00002350| 50 61 63 6b 61 67 65 73 | 3a 46 49 54 53 3a 61 73 |Packages|:FITS:as|
|00002360| 6b 69 66 53 69 7a 65 22 | 2c 30 29 09 09 09 09 2f |kifSize"|,0)..../|
|00002370| 2f 20 69 66 20 64 61 74 | 61 20 65 78 63 65 65 64 |/ if dat|a exceed|
|00002380| 73 20 74 68 69 73 20 73 | 69 7a 65 2c 20 61 73 6b |s this s|ize, ask|
|00002390| 20 70 65 72 6d 69 73 73 | 69 6f 6e 20 74 6f 20 6c | permiss|ion to l|
|000023a0| 6f 61 64 20 20 0d 09 0d | 09 56 61 72 69 61 62 6c |oad ...|.Variabl|
|000023b0| 65 20 64 6f 4c 6f 67 4e | 6f 74 65 62 6f 6f 6b 3d |e doLogN|otebook=|
|000023c0| 20 64 6f 48 65 61 64 65 | 72 20 7c 20 64 6f 48 69 | doHeade|r | doHi|
|000023d0| 73 74 6f 72 79 20 7c 20 | 64 6f 43 6f 6d 6d 65 6e |story | |doCommen|
|000023e0| 74 0d 09 0d 09 56 61 72 | 69 61 62 6c 65 20 72 65 |t....Var|iable re|
|000023f0| 66 6e 75 6d 0d 09 53 74 | 72 69 6e 67 20 70 61 74 |fnum..St|ring pat|
|00002400| 68 3d 20 53 74 72 56 61 | 72 4f 72 44 65 66 61 75 |h= StrVa|rOrDefau|
|00002410| 6c 74 28 22 72 6f 6f 74 | 3a 50 61 63 6b 61 67 65 |lt("root|:Package|
|00002420| 73 3a 46 49 54 53 3a 74 | 68 65 50 61 74 68 22 2c |s:FITS:t|hePath",|
|00002430| 22 22 29 0d 09 69 66 28 | 20 43 6d 70 53 74 72 28 |"")..if(| CmpStr(|
|00002440| 70 61 74 68 2c 22 5f 63 | 75 72 72 65 6e 74 5f 22 |path,"_c|urrent_"|
|00002450| 29 3d 3d 30 20 29 0d 09 | 09 4f 70 65 6e 2f 52 2f |)==0 )..|.Open/R/|
|00002460| 54 3d 22 3f 3f 3f 3f 22 | 20 72 65 66 6e 75 6d 0d |T="????"| refnum.|
|00002470| 09 65 6c 73 65 0d 09 09 | 4f 70 65 6e 2f 52 2f 50 |.else...|Open/R/P|
|00002480| 3d 24 70 61 74 68 2f 54 | 3d 22 3f 3f 3f 3f 22 20 |=$path/T|="????" |
|00002490| 72 65 66 6e 75 6d 0d 09 | 65 6e 64 69 66 0d 09 69 |refnum..|endif..i|
|000024a0| 66 28 20 72 65 66 6e 75 | 6d 3d 3d 30 20 29 0d 09 |f( refnu|m==0 )..|
|000024b0| 09 72 65 74 75 72 6e 20 | 30 0d 09 65 6e 64 69 66 |.return |0..endif|
|000024c0| 0d 09 0d 09 46 53 74 61 | 74 75 73 20 72 65 66 6e |....FSta|tus refn|
|000024d0| 75 6d 0d 09 70 72 69 6e | 74 20 22 46 49 54 53 20 |um..prin|t "FITS |
|000024e0| 4c 6f 61 64 20 66 72 6f | 6d 22 2c 53 5f 66 69 6c |Load fro|m",S_fil|
|000024f0| 65 4e 61 6d 65 0d 09 53 | 74 72 69 6e 67 20 73 0d |eName..S|tring s.|
|00002500| 09 73 3d 20 50 61 64 53 | 74 72 69 6e 67 28 22 22 |.s= PadS|tring(""|
|00002510| 2c 38 30 2c 30 29 0d 09 | 46 42 69 6e 52 65 61 64 |,80,0)..|FBinRead|
|00002520| 20 72 65 66 6e 75 6d 2c | 73 0d 09 56 61 72 69 61 | refnum,|s..Varia|
|00002530| 62 6c 65 20 65 72 72 3d | 20 30 0d 09 53 74 72 69 |ble err=| 0..Stri|
|00002540| 6e 67 20 65 72 72 73 74 | 72 3d 22 22 0d 09 64 6f |ng errst|r=""..do|
|00002550| 0d 09 09 69 66 28 20 43 | 6d 70 53 74 72 28 22 53 |...if( C|mpStr("S|
|00002560| 49 4d 50 4c 45 20 20 3d | 20 20 20 20 20 20 20 20 |IMPLE =| |
|00002570| 20 20 20 20 20 20 20 20 | 20 20 20 20 54 20 22 2c | | T ",|
|00002580| 73 5b 30 2c 33 30 5d 29 | 20 21 3d 20 30 20 29 0d |s[0,30])| != 0 ).|
|00002590| 09 09 09 65 72 72 73 74 | 72 3d 22 64 6f 65 73 6e |...errst|r="doesn|
|000025a0| 27 74 20 62 65 67 69 6e | 20 77 69 74 68 20 27 53 |'t begin| with 'S|
|000025b0| 49 4d 50 4c 45 27 22 0d | 70 72 69 6e 74 20 73 0d |IMPLE'".|print s.|
|000025c0| 09 09 09 65 72 72 3d 20 | 31 0d 09 09 09 62 72 65 |...err= |1....bre|
|000025d0| 61 6b 0d 09 09 65 6e 64 | 69 66 0d 09 09 69 66 28 |ak...end|if...if(|
|000025e0| 20 6d 6f 64 28 56 5f 6c | 6f 67 45 4f 46 2c 32 38 | mod(V_l|ogEOF,28|
|000025f0| 38 30 29 20 21 3d 20 30 | 20 29 0d 09 09 09 65 72 |80) != 0| )....er|
|00002600| 72 73 74 72 3d 20 22 66 | 69 6c 65 20 73 69 7a 65 |rstr= "f|ile size|
|00002610| 20 69 73 20 6e 6f 74 20 | 61 20 6d 75 6c 74 69 70 | is not |a multip|
|00002620| 6c 65 20 6f 66 20 32 38 | 38 30 20 62 79 74 65 73 |le of 28|80 bytes|
|00002630| 22 0d 09 09 09 44 6f 41 | 6c 65 72 74 20 31 2c 22 |"....DoA|lert 1,"|
|00002640| 57 41 52 4e 49 4e 47 3a | 20 22 2b 65 72 72 73 74 |WARNING:| "+errst|
|00002650| 72 2b 22 3b 20 43 6f 6e | 74 69 6e 75 65 20 61 6e |r+"; Con|tinue an|
|00002660| 79 77 61 79 3f 22 0d 09 | 09 09 69 66 28 20 56 5f |yway?"..|..if( V_|
|00002670| 46 6c 61 67 3d 3d 32 20 | 29 0d 09 09 09 09 65 72 |Flag==2 |).....er|
|00002680| 72 3d 20 32 0d 09 09 09 | 65 6e 64 69 66 0d 09 09 |r= 2....|endif...|
|00002690| 09 62 72 65 61 6b 3b 0d | 09 09 65 6e 64 69 66 0d |.break;.|..endif.|
|000026a0| 09 77 68 69 6c 65 28 30 | 29 0d 09 69 66 28 20 65 |.while(0|)..if( e|
|000026b0| 72 72 20 29 0d 09 09 43 | 6c 6f 73 65 20 72 65 66 |rr )...C|lose ref|
|000026c0| 6e 75 6d 0d 09 09 69 66 | 28 20 65 72 72 3d 3d 31 |num...if|( err==1|
|000026d0| 20 29 0d 09 09 09 41 62 | 6f 72 74 20 22 4e 6f 74 | )....Ab|ort "Not|
|000026e0| 20 61 20 46 49 54 53 20 | 66 69 6c 65 3a 20 22 2b | a FITS |file: "+|
|000026f0| 65 72 72 73 74 72 0d 09 | 09 65 6e 64 69 66 0d 09 |errstr..|.endif..|
|00002700| 09 72 65 74 75 72 6e 20 | 30 0d 09 65 6e 64 69 66 |.return |0..endif|
|00002710| 0d 09 0d 09 53 74 72 69 | 6e 67 20 6e 62 20 3d 20 |....Stri|ng nb = |
|00002720| 22 22 0d 09 69 66 28 20 | 64 6f 4c 6f 67 4e 6f 74 |""..if( |doLogNot|
|00002730| 65 62 6f 6f 6b 20 29 0d | 09 09 6e 62 20 3d 20 43 |ebook ).|..nb = C|
|00002740| 6c 65 61 6e 75 70 4e 61 | 6d 65 28 53 5f 66 69 6c |leanupNa|me(S_fil|
|00002750| 65 4e 61 6d 65 2c 30 29 | 0d 09 09 4e 65 77 4e 6f |eName,0)|...NewNo|
|00002760| 74 65 62 6f 6f 6b 2f 4e | 3d 24 6e 62 2f 46 3d 31 |tebook/N|=$nb/F=1|
|00002770| 2f 56 3d 31 2f 57 3d 28 | 35 2c 34 30 2c 36 32 33 |/V=1/W=(|5,40,623|
|00002780| 2c 33 33 37 29 20 0d 09 | 09 4e 6f 74 65 62 6f 6f |,337) ..|.Noteboo|
|00002790| 6b 20 24 6e 62 20 64 65 | 66 61 75 6c 74 54 61 62 |k $nb de|faultTab|
|000027a0| 3d 33 36 2c 20 73 74 61 | 74 75 73 57 69 64 74 68 |=36, sta|tusWidth|
|000027b0| 3d 32 33 38 2c 20 70 61 | 67 65 4d 61 72 67 69 6e |=238, pa|geMargin|
|000027c0| 73 3d 7b 37 32 2c 37 32 | 2c 37 32 2c 37 32 7d 0d |s={72,72|,72,72}.|
|000027d0| 09 09 4e 6f 74 65 62 6f | 6f 6b 20 24 6e 62 20 73 |..Notebo|ok $nb s|
|000027e0| 68 6f 77 52 75 6c 65 72 | 3d 30 2c 20 72 75 6c 65 |howRuler|=0, rule|
|000027f0| 72 55 6e 69 74 73 3d 31 | 2c 20 75 70 64 61 74 69 |rUnits=1|, updati|
|00002800| 6e 67 3d 7b 31 2c 20 36 | 30 7d 0d 09 09 4e 6f 74 |ng={1, 6|0}...Not|
|00002810| 65 62 6f 6f 6b 20 24 6e | 62 20 6e 65 77 52 75 6c |ebook $n|b newRul|
|00002820| 65 72 3d 4e 6f 72 6d 61 | 6c 2c 20 6a 75 73 74 69 |er=Norma|l, justi|
|00002830| 66 69 63 61 74 69 6f 6e | 3d 30 2c 20 6d 61 72 67 |fication|=0, marg|
|00002840| 69 6e 73 3d 7b 30 2c 30 | 2c 35 37 36 7d 2c 20 73 |ins={0,0|,576}, s|
|00002850| 70 61 63 69 6e 67 3d 7b | 30 2c 30 2c 30 7d 2c 20 |pacing={|0,0,0}, |
|00002860| 74 61 62 73 3d 7b 7d 2c | 20 72 75 6c 65 72 44 65 |tabs={},| rulerDe|
|00002870| 66 61 75 6c 74 73 3d 7b | 22 4d 6f 6e 61 63 6f 22 |faults={|"Monaco"|
|00002880| 2c 31 30 2c 30 2c 28 30 | 2c 30 2c 30 29 7d 0d 09 |,10,0,(0|,0,0)}..|
|00002890| 09 4e 6f 74 65 62 6f 6f | 6b 20 24 6e 62 20 72 75 |.Noteboo|k $nb ru|
|000028a0| 6c 65 72 3d 4e 6f 72 6d | 61 6c 0d 09 65 6e 64 69 |ler=Norm|al..endi|
|000028b0| 66 0d 09 0d 09 53 74 72 | 69 6e 67 20 64 66 53 61 |f....Str|ing dfSa|
|000028c0| 76 3d 20 47 65 74 44 61 | 74 61 46 6f 6c 64 65 72 |v= GetDa|taFolder|
|000028d0| 28 31 29 09 0d 09 4e 65 | 77 44 61 74 61 46 6f 6c |(1)...Ne|wDataFol|
|000028e0| 64 65 72 2f 4f 2f 53 20 | 24 53 5f 66 69 6c 65 4e |der/O/S |$S_fileN|
|000028f0| 61 6d 65 0d 09 4e 65 77 | 44 61 74 61 46 6f 6c 64 |ame..New|DataFold|
|00002900| 65 72 2f 4f 2f 53 20 50 | 72 69 6d 61 72 79 0d 09 |er/O/S P|rimary..|
|00002910| 0d 09 2f 2f 0d 09 2f 2f | 09 4c 6f 61 64 20 74 68 |..//..//|.Load th|
|00002920| 65 20 70 72 69 6d 61 72 | 79 20 64 61 74 61 0d 09 |e primar|y data..|
|00002930| 2f 2f 0d 09 64 6f 0d 09 | 09 65 72 72 3d 20 47 65 |//..do..|.err= Ge|
|00002940| 74 52 65 71 75 69 72 65 | 64 28 72 65 66 6e 75 6d |tRequire|d(refnum|
|00002950| 2c 6e 62 2c 64 6f 48 65 | 61 64 65 72 2c 62 69 67 |,nb,doHe|ader,big|
|00002960| 42 79 74 65 73 2c 30 29 | 0d 09 09 69 66 28 20 65 |Bytes,0)|...if( e|
|00002970| 72 72 20 29 0d 09 09 09 | 65 72 72 73 74 72 3d 20 |rr )....|errstr= |
|00002980| 53 74 72 56 61 72 4f 72 | 44 65 66 61 75 6c 74 28 |StrVarOr|Default(|
|00002990| 22 65 72 72 6f 72 73 74 | 72 22 2c 22 70 72 6f 62 |"errorst|r","prob|
|000029a0| 6c 65 6d 20 72 65 61 64 | 69 6e 67 20 72 65 71 75 |lem read|ing requ|
|000029b0| 69 72 65 64 20 70 61 72 | 61 6d 65 74 65 72 73 22 |ired par|ameters"|
|000029c0| 29 0d 09 09 09 62 72 65 | 61 6b 0d 09 09 65 6e 64 |)....bre|ak...end|
|000029d0| 69 66 0d 0d 09 09 65 72 | 72 3d 20 47 65 74 4f 70 |if....er|r= GetOp|
|000029e0| 74 69 6f 6e 61 6c 28 72 | 65 66 6e 75 6d 2c 6e 62 |tional(r|efnum,nb|
|000029f0| 2c 20 64 6f 48 65 61 64 | 65 72 2c 64 6f 48 69 73 |, doHead|er,doHis|
|00002a00| 74 6f 72 79 2c 64 6f 43 | 6f 6d 6d 65 6e 74 2c 30 |tory,doC|omment,0|
|00002a10| 29 0d 09 09 69 66 28 20 | 65 72 72 20 29 0d 09 09 |)...if( |err )...|
|00002a20| 09 65 72 72 73 74 72 3d | 20 53 74 72 56 61 72 4f |.errstr=| StrVarO|
|00002a30| 72 44 65 66 61 75 6c 74 | 28 22 65 72 72 6f 72 73 |rDefault|("errors|
|00002a40| 74 72 22 2c 22 70 72 6f | 62 6c 65 6d 20 72 65 61 |tr","pro|blem rea|
|00002a50| 64 69 6e 67 20 6f 70 74 | 69 6f 6e 61 6c 20 70 61 |ding opt|ional pa|
|00002a60| 72 61 6d 65 74 65 72 73 | 22 29 0d 09 09 09 62 72 |rameters|")....br|
|00002a70| 65 61 6b 0d 09 09 65 6e | 64 69 66 0d 09 09 65 72 |eak...en|dif...er|
|00002a80| 72 3d 20 53 65 74 46 50 | 6f 73 54 6f 4e 65 78 74 |r= SetFP|osToNext|
|00002a90| 52 65 63 6f 72 64 28 72 | 65 66 6e 75 6d 29 0d 09 |Record(r|efnum)..|
|00002aa0| 09 69 66 28 20 65 72 72 | 20 29 0d 09 09 09 65 72 |.if( err| )....er|
|00002ab0| 72 73 74 72 3d 20 53 74 | 72 56 61 72 4f 72 44 65 |rstr= St|rVarOrDe|
|00002ac0| 66 61 75 6c 74 28 22 65 | 72 72 6f 72 73 74 72 22 |fault("e|rrorstr"|
|00002ad0| 2c 22 75 6e 65 78 70 65 | 63 74 65 64 20 65 6e 64 |,"unexpe|cted end|
|00002ae0| 20 6f 66 20 66 69 6c 65 | 22 29 0d 09 09 09 62 72 | of file|")....br|
|00002af0| 65 61 6b 0d 09 09 65 6e | 64 69 66 0d 0d 09 09 4e |eak...en|dif....N|
|00002b00| 56 41 52 20 67 53 6b 69 | 70 44 61 74 61 3d 20 67 |VAR gSki|pData= g|
|00002b10| 53 6b 69 70 44 61 74 61 | 0d 09 09 4e 56 41 52 20 |SkipData|...NVAR |
|00002b20| 67 44 61 74 61 42 79 74 | 65 73 3d 20 67 44 61 74 |gDataByt|es= gDat|
|00002b30| 61 42 79 74 65 73 0d 09 | 09 69 66 28 20 67 44 61 |aBytes..|.if( gDa|
|00002b40| 74 61 42 79 74 65 73 20 | 21 3d 20 30 20 29 0d 09 |taBytes |!= 0 )..|
|00002b50| 09 09 69 66 28 20 67 53 | 6b 69 70 44 61 74 61 20 |..if( gS|kipData |
|00002b60| 29 0d 09 09 09 09 46 53 | 74 61 74 75 73 20 72 65 |).....FS|tatus re|
|00002b70| 66 6e 75 6d 0d 09 09 09 | 09 46 53 65 74 50 6f 73 |fnum....|.FSetPos|
|00002b80| 20 72 65 66 6e 75 6d 2c | 6d 69 6e 28 56 5f 66 69 | refnum,|min(V_fi|
|00002b90| 6c 65 50 6f 73 2b 67 44 | 61 74 61 42 79 74 65 73 |lePos+gD|ataBytes|
|00002ba0| 2c 56 5f 6c 6f 67 45 4f | 46 29 0d 09 09 09 65 6c |,V_logEO|F)....el|
|00002bb0| 73 65 0d 09 09 09 09 46 | 42 69 6e 52 65 61 64 20 |se.....F|BinRead |
|00002bc0| 72 65 66 6e 75 6d 2c 64 | 61 74 61 0d 09 09 09 09 |refnum,d|ata.....|
|00002bd0| 53 65 74 44 61 74 61 50 | 72 6f 70 65 72 74 69 65 |SetDataP|ropertie|
|00002be0| 73 28 64 61 74 61 2c 64 | 6f 49 6e 74 32 46 6c 6f |s(data,d|oInt2Flo|
|00002bf0| 61 74 29 0d 09 09 09 09 | 69 66 28 20 64 6f 41 75 |at).....|if( doAu|
|00002c00| 74 6f 44 69 73 70 20 29 | 0d 09 09 09 09 09 41 75 |toDisp )|......Au|
|00002c10| 74 6f 44 69 73 70 6c 61 | 79 44 61 74 61 28 64 61 |toDispla|yData(da|
|00002c20| 74 61 29 0d 09 09 09 09 | 65 6e 64 69 66 0d 09 09 |ta).....|endif...|
|00002c30| 09 65 6e 64 69 66 0d 09 | 09 09 53 65 74 46 50 6f |.endif..|..SetFPo|
|00002c40| 73 54 6f 4e 65 78 74 52 | 65 63 6f 72 64 28 72 65 |sToNextR|ecord(re|
|00002c50| 66 6e 75 6d 29 09 09 2f | 2f 20 69 67 6e 6f 72 65 |fnum)../|/ ignore|
|00002c60| 20 65 72 72 6f 72 0d 09 | 09 65 6e 64 69 66 0d 09 | error..|.endif..|
|00002c70| 77 68 69 6c 65 28 30 29 | 0d 09 0d 09 41 70 70 65 |while(0)|....Appe|
|00002c80| 6e 64 4e 42 28 6e 62 2c | 22 a5 a5 a5 a5 a5 a5 a5 |ndNB(nb,|".......|
|00002c90| a5 a5 a5 22 29 0d 09 56 | 61 72 69 61 62 6c 65 20 |...")..V|ariable |
|00002ca0| 65 78 74 65 6e 73 69 6f | 6e 3d 20 30 0d 09 69 66 |extensio|n= 0..if|
|00002cb0| 28 20 21 65 72 72 20 29 | 0d 09 09 64 6f 0d 09 09 |( !err )|...do...|
|00002cc0| 09 46 53 74 61 74 75 73 | 20 72 65 66 6e 75 6d 0d |.FStatus| refnum.|
|00002cd0| 09 09 09 56 61 72 69 61 | 62 6c 65 20 65 78 53 74 |...Varia|ble exSt|
|00002ce0| 61 72 74 3d 20 56 5f 66 | 69 6c 65 50 6f 73 09 09 |art= V_f|ilePos..|
|00002cf0| 09 09 2f 2f 20 72 65 6d | 65 6d 62 65 72 20 74 68 |..// rem|ember th|
|00002d00| 69 73 20 73 6f 20 77 65 | 20 63 61 6e 20 73 6b 69 |is so we| can ski|
|00002d10| 70 20 65 78 74 65 6e 73 | 69 6f 6e 73 20 77 65 20 |p extens|ions we |
|00002d20| 64 6f 6e 27 74 20 75 6e | 64 65 72 73 74 61 6e 64 |don't un|derstand|
|00002d30| 0d 09 09 09 0d 09 09 09 | 69 66 28 20 56 5f 66 69 |........|if( V_fi|
|00002d40| 6c 65 50 6f 73 20 3d 3d | 20 20 56 5f 6c 6f 67 45 |lePos ==| V_logE|
|00002d50| 4f 46 20 29 0d 09 09 09 | 09 62 72 65 61 6b 0d 09 |OF )....|.break..|
|00002d60| 09 09 65 6e 64 69 66 0d | 09 09 09 69 66 28 20 56 |..endif.|...if( V|
|00002d70| 5f 6c 6f 67 45 4f 46 20 | 3c 20 28 56 5f 66 69 6c |_logEOF |< (V_fil|
|00002d80| 65 50 6f 73 2b 32 38 38 | 30 29 20 29 0d 09 09 09 |ePos+288|0) )....|
|00002d90| 09 70 72 69 6e 74 20 56 | 5f 6c 6f 67 45 4f 46 2d |.print V|_logEOF-|
|00002da0| 56 5f 66 69 6c 65 50 6f | 73 2c 22 62 79 74 65 73 |V_filePo|s,"bytes|
|00002db0| 20 75 6e 72 65 61 64 22 | 0d 09 09 09 09 62 72 65 | unread"|.....bre|
|00002dc0| 61 6b 0d 09 09 09 65 6e | 64 69 66 0d 09 09 09 0d |ak....en|dif.....|
|00002dd0| 09 09 09 4e 65 77 44 61 | 74 61 46 6f 6c 64 65 72 |...NewDa|taFolder|
|00002de0| 2f 4f 2f 53 20 3a 3a 24 | 22 45 78 74 65 6e 73 69 |/O/S ::$|"Extensi|
|00002df0| 6f 6e 22 2b 6e 75 6d 32 | 73 74 72 28 65 78 74 65 |on"+num2|str(exte|
|00002e00| 6e 73 69 6f 6e 29 0d 09 | 09 09 46 42 69 6e 52 65 |nsion)..|..FBinRe|
|00002e10| 61 64 20 72 65 66 6e 75 | 6d 2c 73 0d 09 09 09 41 |ad refnu|m,s....A|
|00002e20| 70 70 65 6e 64 4e 42 28 | 6e 62 2c 73 29 0d 0d 09 |ppendNB(|nb,s)...|
|00002e30| 09 09 69 66 28 20 43 6d | 70 53 74 72 28 73 5b 30 |..if( Cm|pStr(s[0|
|00002e40| 2c 38 5d 2c 22 58 54 45 | 4e 53 49 4f 4e 3d 22 29 |,8],"XTE|NSION=")|
|00002e50| 20 21 3d 20 30 20 29 09 | 09 2f 2f 20 6f 6b 20 66 | != 0 ).|.// ok f|
|00002e60| 6f 72 20 65 78 74 72 61 | 20 72 65 63 6f 72 64 73 |or extra| records|
|00002e70| 20 74 6f 20 65 78 69 73 | 74 20 61 66 74 65 72 20 | to exis|t after |
|00002e80| 70 72 69 6d 61 72 79 20 | 61 6e 64 20 65 78 74 65 |primary |and exte|
|00002e90| 6e 73 69 6f 6e 73 0d 09 | 09 09 09 62 72 65 61 6b |nsions..|...break|
|00002ea0| 0d 09 09 09 65 6e 64 69 | 66 0d 09 09 0d 09 09 09 |....endi|f.......|
|00002eb0| 53 74 72 69 6e 67 2f 47 | 20 58 54 45 4e 53 49 4f |String/G| XTENSIO|
|00002ec0| 4e 3d 20 47 65 74 46 69 | 74 73 53 74 72 69 6e 67 |N= GetFi|tsString|
|00002ed0| 28 73 29 0d 09 09 09 69 | 66 28 20 73 74 72 6c 65 |(s)....i|f( strle|
|00002ee0| 6e 28 58 54 45 4e 53 49 | 4f 4e 29 20 3d 3d 20 30 |n(XTENSI|ON) == 0|
|00002ef0| 20 29 0d 09 09 09 09 65 | 72 72 73 74 72 3d 20 22 | ).....e|rrstr= "|
|00002f00| 58 54 45 4e 53 49 4f 4e | 20 63 68 61 72 20 73 74 |XTENSION| char st|
|00002f10| 72 69 6e 67 20 6d 69 73 | 73 69 6e 67 22 0d 09 09 |ring mis|sing"...|
|00002f20| 09 09 65 72 72 3d 20 31 | 0d 09 09 09 09 62 72 65 |..err= 1|.....bre|
|00002f30| 61 6b 0d 09 09 09 65 6e | 64 69 66 0d 09 09 09 0d |ak....en|dif.....|
|00002f40| 09 09 09 65 72 72 3d 20 | 47 65 74 52 65 71 75 69 |...err= |GetRequi|
|00002f50| 72 65 64 28 72 65 66 6e | 75 6d 2c 6e 62 2c 64 6f |red(refn|um,nb,do|
|00002f60| 48 65 61 64 65 72 2c 62 | 69 67 42 79 74 65 73 2c |Header,b|igBytes,|
|00002f70| 31 29 09 2f 2f 20 31 20 | 6d 65 61 6e 73 20 77 65 |1).// 1 |means we|
|00002f80| 20 64 6f 6e 27 74 20 63 | 72 65 61 74 65 20 61 20 | don't c|reate a |
|00002f90| 77 61 76 65 0d 09 09 09 | 69 66 28 20 65 72 72 20 |wave....|if( err |
|00002fa0| 20 29 0d 09 09 09 09 62 | 72 65 61 6b 0d 09 09 09 | ).....b|reak....|
|00002fb0| 65 6e 64 69 66 0d 0d 09 | 09 09 65 72 72 3d 20 47 |endif...|..err= G|
|00002fc0| 65 74 4f 70 74 69 6f 6e | 61 6c 28 72 65 66 6e 75 |etOption|al(refnu|
|00002fd0| 6d 2c 6e 62 2c 20 64 6f | 48 65 61 64 65 72 2c 64 |m,nb, do|Header,d|
|00002fe0| 6f 48 69 73 74 6f 72 79 | 2c 64 6f 43 6f 6d 6d 65 |oHistory|,doComme|
|00002ff0| 6e 74 2c 31 29 0d 09 09 | 09 69 66 28 20 65 72 72 |nt,1)...|.if( err|
|00003000| 20 29 0d 09 09 09 09 65 | 72 72 73 74 72 3d 20 53 | ).....e|rrstr= S|
|00003010| 74 72 56 61 72 4f 72 44 | 65 66 61 75 6c 74 28 22 |trVarOrD|efault("|
|00003020| 65 72 72 6f 72 73 74 72 | 22 2c 22 70 72 6f 62 6c |errorstr|","probl|
|00003030| 65 6d 20 72 65 61 64 69 | 6e 67 20 6f 70 74 69 6f |em readi|ng optio|
|00003040| 6e 61 6c 20 65 78 74 65 | 6e 73 69 6f 6e 20 70 61 |nal exte|nsion pa|
|00003050| 72 61 6d 65 74 65 72 73 | 22 29 0d 09 09 09 09 62 |rameters|").....b|
|00003060| 72 65 61 6b 0d 09 09 09 | 65 6e 64 69 66 0d 09 09 |reak....|endif...|
|00003070| 09 53 65 74 46 50 6f 73 | 54 6f 4e 65 78 74 52 65 |.SetFPos|ToNextRe|
|00003080| 63 6f 72 64 28 72 65 66 | 6e 75 6d 29 09 09 2f 2f |cord(ref|num)..//|
|00003090| 20 69 67 6e 6f 72 65 20 | 65 72 72 6f 72 0d 0d 09 | ignore |error...|
|000030a0| 09 09 69 66 28 20 45 78 | 69 73 74 73 28 22 50 43 |..if( Ex|ists("PC|
|000030b0| 4f 55 4e 54 22 29 20 21 | 3d 20 32 20 29 0d 09 09 |OUNT") !|= 2 )...|
|000030c0| 09 09 65 72 72 73 74 72 | 3d 20 22 50 43 4f 55 4e |..errstr|= "PCOUN|
|000030d0| 54 20 65 78 74 65 6e 73 | 69 6f 6e 20 70 61 72 61 |T extens|ion para|
|000030e0| 6d 20 6d 69 73 73 69 6e | 67 22 0d 09 09 09 09 65 |m missin|g".....e|
|000030f0| 72 72 3d 20 31 0d 09 09 | 09 09 62 72 65 61 6b 0d |rr= 1...|..break.|
|00003100| 09 09 09 65 6e 64 69 66 | 0d 09 09 09 69 66 28 20 |...endif|....if( |
|00003110| 45 78 69 73 74 73 28 22 | 47 43 4f 55 4e 54 22 29 |Exists("|GCOUNT")|
|00003120| 20 21 3d 20 32 20 29 0d | 09 09 09 09 65 72 72 73 | != 2 ).|....errs|
|00003130| 74 72 3d 20 22 47 43 4f | 55 4e 54 20 65 78 74 65 |tr= "GCO|UNT exte|
|00003140| 6e 73 69 6f 6e 20 70 61 | 72 61 6d 20 6d 69 73 73 |nsion pa|ram miss|
|00003150| 69 6e 67 22 0d 09 09 09 | 09 65 72 72 3d 20 31 0d |ing"....|.err= 1.|
|00003160| 09 09 09 09 62 72 65 61 | 6b 0d 09 09 09 65 6e 64 |....brea|k....end|
|00003170| 69 66 0d 09 09 09 4e 56 | 41 52 20 50 43 4f 55 4e |if....NV|AR PCOUN|
|00003180| 54 3d 20 50 43 4f 55 4e | 54 0d 09 09 09 4e 56 41 |T= PCOUN|T....NVA|
|00003190| 52 20 47 43 4f 55 4e 54 | 3d 20 47 43 4f 55 4e 54 |R GCOUNT|= GCOUNT|
|000031a0| 0d 09 09 09 4e 56 41 52 | 20 67 44 61 74 61 42 79 |....NVAR| gDataBy|
|000031b0| 74 65 73 3d 20 67 44 61 | 74 61 42 79 74 65 73 09 |tes= gDa|taBytes.|
|000031c0| 09 2f 2f 20 64 6f 65 73 | 6e 27 74 20 69 6e 63 6c |.// does|n't incl|
|000031d0| 75 64 65 20 70 20 6f 72 | 20 67 20 63 6f 75 6e 74 |ude p or| g count|
|000031e0| 0d 09 09 09 4e 56 41 52 | 20 42 49 54 50 49 58 3d |....NVAR| BITPIX=|
|000031f0| 20 42 49 54 50 49 58 0d | 09 09 09 0d 09 09 09 67 | BITPIX.|.......g|
|00003200| 44 61 74 61 42 79 74 65 | 73 3d 20 67 44 61 74 61 |DataByte|s= gData|
|00003210| 42 79 74 65 73 2a 38 2f | 61 62 73 28 42 49 54 50 |Bytes*8/|abs(BITP|
|00003220| 49 58 29 0d 09 09 09 67 | 44 61 74 61 42 79 74 65 |IX)....g|DataByte|
|00003230| 73 3d 20 61 62 73 28 42 | 49 54 50 49 58 29 2a 47 |s= abs(B|ITPIX)*G|
|00003240| 43 4f 55 4e 54 2a 28 50 | 43 4f 55 4e 54 2b 67 44 |COUNT*(P|COUNT+gD|
|00003250| 61 74 61 42 79 74 65 73 | 29 2f 38 0d 0d 09 09 09 |ataBytes|)/8.....|
|00003260| 46 53 74 61 74 75 73 20 | 72 65 66 6e 75 6d 0d 09 |FStatus |refnum..|
|00003270| 09 09 20 56 61 72 69 61 | 62 6c 65 20 65 78 44 61 |.. Varia|ble exDa|
|00003280| 74 61 53 74 61 72 74 3d | 20 56 5f 66 69 6c 65 50 |taStart=| V_fileP|
|00003290| 6f 73 0d 0d 09 09 09 69 | 66 28 20 43 6d 70 53 74 |os.....i|f( CmpSt|
|000032a0| 72 28 22 54 41 42 4c 45 | 20 20 20 22 2c 58 54 45 |r("TABLE| ",XTE|
|000032b0| 4e 53 49 4f 4e 29 20 3d | 3d 20 30 20 29 0d 09 09 |NSION) =|= 0 )...|
|000032c0| 09 09 41 70 70 65 6e 64 | 4e 42 28 6e 62 2c 22 a5 |..Append|NB(nb,".|
|000032d0| a5 a5 53 74 61 72 74 20 | 54 41 42 4c 45 20 64 61 |..Start |TABLE da|
|000032e0| 74 61 a5 a5 a5 22 29 0d | 09 09 09 09 4e 56 41 52 |ta...").|....NVAR|
|000032f0| 20 4e 41 58 49 53 31 3d | 20 4e 41 58 49 53 31 0d | NAXIS1=| NAXIS1.|
|00003300| 09 09 09 09 4e 56 41 52 | 20 4e 41 58 49 53 32 3d |....NVAR| NAXIS2=|
|00003310| 20 4e 41 58 49 53 32 0d | 09 09 09 09 53 74 72 69 | NAXIS2.|....Stri|
|00003320| 6e 67 20 73 73 3d 20 50 | 61 64 53 74 72 69 6e 67 |ng ss= P|adString|
|00003330| 28 22 22 2c 4e 41 58 49 | 53 31 2c 30 78 32 30 29 |("",NAXI|S1,0x20)|
|00003340| 0d 09 09 09 09 56 61 72 | 69 61 62 6c 65 20 6a 3d |.....Var|iable j=|
|00003350| 31 0d 09 09 09 09 64 6f | 0d 09 09 09 09 09 69 66 |1.....do|......if|
|00003360| 28 20 6a 3e 4e 41 58 49 | 53 32 29 0d 09 09 09 09 |( j>NAXI|S2).....|
|00003370| 09 09 62 72 65 61 6b 0d | 09 09 09 09 09 65 6e 64 |..break.|.....end|
|00003380| 69 66 0d 09 09 09 09 09 | 46 42 69 6e 52 65 61 64 |if......|FBinRead|
|00003390| 20 72 65 66 6e 75 6d 2c | 73 73 0d 09 09 09 09 09 | refnum,|ss......|
|000033a0| 41 70 70 65 6e 64 4e 42 | 28 6e 62 2c 73 73 29 0d |AppendNB|(nb,ss).|
|000033b0| 09 09 09 09 09 6a 2b 3d | 31 0d 09 09 09 09 77 68 |.....j+=|1.....wh|
|000033c0| 69 6c 65 28 31 29 0d 09 | 09 09 09 41 70 70 65 6e |ile(1)..|...Appen|
|000033d0| 64 4e 42 28 6e 62 2c 22 | a5 a5 a5 45 6e 64 20 54 |dNB(nb,"|...End T|
|000033e0| 41 42 4c 45 20 64 61 74 | 61 a5 a5 a5 22 29 0d 09 |ABLE dat|a...")..|
|000033f0| 09 09 65 6e 64 69 66 0d | 09 09 09 46 53 65 74 50 |..endif.|...FSetP|
|00003400| 6f 73 20 72 65 66 6e 75 | 6d 2c 6d 69 6e 28 65 78 |os refnu|m,min(ex|
|00003410| 44 61 74 61 53 74 61 72 | 74 2b 67 44 61 74 61 42 |DataStar|t+gDataB|
|00003420| 79 74 65 73 2c 56 5f 6c | 6f 67 45 4f 46 29 09 09 |ytes,V_l|ogEOF)..|
|00003430| 2f 2f 20 73 6b 69 70 20 | 74 68 65 20 64 61 74 61 |// skip |the data|
|00003440| 3b 20 64 6f 20 73 6f 6d | 65 74 68 69 6e 67 20 77 |; do som|ething w|
|00003450| 69 74 68 20 69 74 20 6c | 61 74 65 72 0d 09 09 09 |ith it l|ater....|
|00003460| 53 65 74 46 50 6f 73 54 | 6f 4e 65 78 74 52 65 63 |SetFPosT|oNextRec|
|00003470| 6f 72 64 28 72 65 66 6e | 75 6d 29 09 09 2f 2f 20 |ord(refn|um)..// |
|00003480| 69 67 6e 6f 72 65 20 65 | 72 72 6f 72 0d 09 09 0d |ignore e|rror....|
|00003490| 09 09 77 68 69 6c 65 28 | 31 29 0d 09 65 6e 64 69 |..while(|1)..endi|
|000034a0| 66 0d 09 0d 09 69 66 28 | 20 65 72 72 20 29 0d 09 |f....if(| err )..|
|000034b0| 09 44 6f 41 6c 65 72 74 | 20 30 2c 20 65 72 72 73 |.DoAlert| 0, errs|
|000034c0| 74 72 0d 09 65 6e 64 69 | 66 0d 09 0d 09 0d 09 53 |tr..endi|f......S|
|000034d0| 65 74 44 61 74 61 46 6f | 6c 64 65 72 20 64 66 53 |etDataFo|lder dfS|
|000034e0| 61 76 0d 09 43 6c 6f 73 | 65 20 72 65 66 6e 75 6d |av..Clos|e refnum|
|000034f0| 0d 65 6e 64 0d 0d 0d 46 | 75 6e 63 74 69 6f 6e 20 |.end...F|unction |
|00003500| 53 63 61 6c 65 49 6e 74 | 44 61 74 61 28 64 2c 62 |ScaleInt|Data(d,b|
|00003510| 73 63 61 6c 65 2c 62 7a | 65 72 6f 2c 62 6c 61 6e |scale,bz|ero,blan|
|00003520| 6b 2c 62 6c 61 6e 6b 76 | 61 6c 69 64 29 0d 09 56 |k,blankv|alid)..V|
|00003530| 61 72 69 61 62 6c 65 20 | 64 2c 62 73 63 61 6c 65 |ariable |d,bscale|
|00003540| 2c 62 7a 65 72 6f 2c 62 | 6c 61 6e 6b 2c 62 6c 61 |,bzero,b|lank,bla|
|00003550| 6e 6b 76 61 6c 69 64 0d | 09 0d 09 69 66 28 20 62 |nkvalid.|...if( b|
|00003560| 6c 61 6e 6b 76 61 6c 69 | 64 20 29 0d 09 09 69 66 |lankvali|d )...if|
|00003570| 28 20 64 3d 3d 62 6c 61 | 6e 6b 20 29 0d 09 09 09 |( d==bla|nk )....|
|00003580| 72 65 74 75 72 6e 20 4e | 61 4e 0d 09 09 65 6e 64 |return N|aN...end|
|00003590| 69 66 0d 09 65 6e 64 69 | 66 0d 09 72 65 74 75 72 |if..endi|f..retur|
|000035a0| 6e 20 64 2a 62 73 63 61 | 6c 65 2b 62 7a 65 72 6f |n d*bsca|le+bzero|
|000035b0| 0d 65 6e 64 0d 0d 0d 46 | 75 6e 63 74 69 6f 6e 20 |.end...F|unction |
|000035c0| 53 65 74 44 61 74 61 50 | 72 6f 70 65 72 74 69 65 |SetDataP|ropertie|
|000035d0| 73 28 64 61 74 61 2c 64 | 6f 49 6e 74 32 46 6c 6f |s(data,d|oInt2Flo|
|000035e0| 61 74 29 0d 09 57 61 76 | 65 20 64 61 74 61 0d 09 |at)..Wav|e data..|
|000035f0| 56 61 72 69 61 62 6c 65 | 20 64 6f 49 6e 74 32 46 |Variable| doInt2F|
|00003600| 6c 6f 61 74 0d 09 0d 09 | 56 61 72 69 61 62 6c 65 |loat....|Variable|
|00003610| 20 6e 64 69 6d 73 3d 20 | 57 61 76 65 44 69 6d 73 | ndims= |WaveDims|
|00003620| 28 64 61 74 61 29 0d 09 | 56 61 72 69 61 62 6c 65 |(data)..|Variable|
|00003630| 20 69 3d 31 0d 09 64 6f | 0d 09 09 69 66 28 20 69 | i=1..do|...if( i|
|00003640| 3e 6e 64 69 6d 73 20 29 | 0d 09 09 09 62 72 65 61 |>ndims )|....brea|
|00003650| 6b 0d 09 09 65 6e 64 69 | 66 0d 09 09 53 74 72 69 |k...endi|f...Stri|
|00003660| 6e 67 20 63 74 79 70 65 | 3d 20 53 74 72 56 61 72 |ng ctype|= StrVar|
|00003670| 4f 72 44 65 66 61 75 6c | 74 28 22 43 54 59 50 45 |OrDefaul|t("CTYPE|
|00003680| 22 2b 6e 75 6d 32 69 73 | 74 72 28 69 29 2c 22 22 |"+num2is|tr(i),""|
|00003690| 29 0d 09 09 56 61 72 69 | 61 62 6c 65 20 63 72 65 |)...Vari|able cre|
|000036a0| 66 3d 20 4e 75 6d 56 61 | 72 4f 72 44 65 66 61 75 |f= NumVa|rOrDefau|
|000036b0| 6c 74 28 22 43 52 50 49 | 58 22 2b 6e 75 6d 32 69 |lt("CRPI|X"+num2i|
|000036c0| 73 74 72 28 69 29 2c 31 | 29 2d 31 0d 09 09 56 61 |str(i),1|)-1...Va|
|000036d0| 72 69 61 62 6c 65 20 63 | 72 76 61 6c 3d 20 4e 75 |riable c|rval= Nu|
|000036e0| 6d 56 61 72 4f 72 44 65 | 66 61 75 6c 74 28 22 43 |mVarOrDe|fault("C|
|000036f0| 52 56 41 4c 22 2b 6e 75 | 6d 32 69 73 74 72 28 69 |RVAL"+nu|m2istr(i|
|00003700| 29 2c 30 29 0d 09 09 56 | 61 72 69 61 62 6c 65 20 |),0)...V|ariable |
|00003710| 63 64 65 6c 74 3d 20 4e | 75 6d 56 61 72 4f 72 44 |cdelt= N|umVarOrD|
|00003720| 65 66 61 75 6c 74 28 22 | 43 44 45 4c 54 22 2b 6e |efault("|CDELT"+n|
|00003730| 75 6d 32 69 73 74 72 28 | 69 29 2c 31 29 0d 09 09 |um2istr(|i),1)...|
|00003740| 56 61 72 69 61 62 6c 65 | 20 64 30 3d 20 63 72 76 |Variable| d0= crv|
|00003750| 61 6c 2d 63 72 65 66 2a | 63 64 65 6c 74 0d 09 09 |al-cref*|cdelt...|
|00003760| 69 66 28 20 69 3d 3d 31 | 20 29 0d 09 09 09 53 65 |if( i==1| )....Se|
|00003770| 74 53 63 61 6c 65 2f 50 | 20 78 2c 64 30 2c 63 64 |tScale/P| x,d0,cd|
|00003780| 65 6c 74 2c 63 74 79 70 | 65 2c 64 61 74 61 0d 09 |elt,ctyp|e,data..|
|00003790| 09 65 6e 64 69 66 0d 09 | 09 69 66 28 20 69 3d 3d |.endif..|.if( i==|
|000037a0| 32 20 29 0d 09 09 09 53 | 65 74 53 63 61 6c 65 2f |2 )....S|etScale/|
|000037b0| 50 20 79 2c 64 30 2c 63 | 64 65 6c 74 2c 63 74 79 |P y,d0,c|delt,cty|
|000037c0| 70 65 2c 64 61 74 61 0d | 09 09 65 6e 64 69 66 0d |pe,data.|..endif.|
|000037d0| 09 09 69 66 28 20 69 3d | 3d 33 20 29 0d 09 09 09 |..if( i=|=3 )....|
|000037e0| 53 65 74 53 63 61 6c 65 | 2f 50 20 7a 2c 64 30 2c |SetScale|/P z,d0,|
|000037f0| 63 64 65 6c 74 2c 63 74 | 79 70 65 2c 64 61 74 61 |cdelt,ct|ype,data|
|00003800| 0d 09 09 65 6e 64 69 66 | 0d 09 09 69 66 28 20 69 |...endif|...if( i|
|00003810| 3d 3d 34 20 29 0d 09 09 | 09 53 65 74 53 63 61 6c |==4 )...|.SetScal|
|00003820| 65 2f 50 20 74 2c 64 30 | 2c 63 64 65 6c 74 2c 63 |e/P t,d0|,cdelt,c|
|00003830| 74 79 70 65 2c 64 61 74 | 61 0d 09 09 65 6e 64 69 |type,dat|a...endi|
|00003840| 66 0d 09 09 69 2b 3d 31 | 0d 09 77 68 69 6c 65 28 |f...i+=1|..while(|
|00003850| 31 29 0d 09 0d 09 69 66 | 28 20 45 78 69 73 74 73 |1)....if|( Exists|
|00003860| 28 22 42 55 4e 49 54 22 | 29 3d 3d 32 20 29 0d 09 |("BUNIT"|)==2 )..|
|00003870| 09 53 65 74 53 63 61 6c | 65 20 64 2c 30 2c 30 2c |.SetScal|e d,0,0,|
|00003880| 53 74 72 56 61 72 4f 72 | 44 65 66 61 75 6c 74 28 |StrVarOr|Default(|
|00003890| 22 42 55 4e 49 54 22 2c | 22 22 29 2c 64 61 74 61 |"BUNIT",|""),data|
|000038a0| 0d 09 65 6e 64 69 66 0d | 09 0d 09 4e 56 41 52 20 |..endif.|...NVAR |
|000038b0| 42 49 54 50 49 58 3d 20 | 42 49 54 50 49 58 0d 09 |BITPIX= |BITPIX..|
|000038c0| 69 66 28 20 28 42 49 54 | 50 49 58 20 3e 20 30 29 |if( (BIT|PIX > 0)|
|000038d0| 20 25 26 20 20 64 6f 49 | 6e 74 32 46 6c 6f 61 74 | %& doI|nt2Float|
|000038e0| 20 29 0d 09 09 56 61 72 | 69 61 62 6c 65 20 62 73 | )...Var|iable bs|
|000038f0| 63 61 6c 65 3d 20 4e 75 | 6d 56 61 72 4f 72 44 65 |cale= Nu|mVarOrDe|
|00003900| 66 61 75 6c 74 28 22 42 | 53 43 41 4c 45 22 2c 31 |fault("B|SCALE",1|
|00003910| 29 0d 09 09 56 61 72 69 | 61 62 6c 65 20 62 7a 65 |)...Vari|able bze|
|00003920| 72 6f 3d 20 4e 75 6d 56 | 61 72 4f 72 44 65 66 61 |ro= NumV|arOrDefa|
|00003930| 75 6c 74 28 22 42 5a 45 | 52 4f 22 2c 30 29 0d 09 |ult("BZE|RO",0)..|
|00003940| 09 56 61 72 69 61 62 6c | 65 20 62 6c 61 6e 6b 3d |.Variabl|e blank=|
|00003950| 20 4e 75 6d 56 61 72 4f | 72 44 65 66 61 75 6c 74 | NumVarO|rDefault|
|00003960| 28 22 42 4c 41 4e 4b 22 | 2c 30 29 0d 09 09 56 61 |("BLANK"|,0)...Va|
|00003970| 72 69 61 62 6c 65 20 62 | 6c 61 6e 6b 76 61 6c 69 |riable b|lankvali|
|00003980| 64 3d 20 45 78 69 73 74 | 73 28 22 42 4c 41 4e 4b |d= Exist|s("BLANK|
|00003990| 22 29 3d 3d 32 0d 09 09 | 0d 09 09 69 66 28 20 42 |")==2...|...if( B|
|000039a0| 49 54 50 49 58 3d 3d 33 | 32 20 29 0d 09 09 09 52 |ITPIX==3|2 )....R|
|000039b0| 65 64 69 6d 65 6e 73 69 | 6f 6e 2f 44 20 24 22 64 |edimensi|on/D $"d|
|000039c0| 61 74 61 22 09 09 2f 2f | 20 6e 65 65 64 20 64 6f |ata"..//| need do|
|000039d0| 75 62 6c 65 20 70 72 65 | 63 69 73 69 6f 6e 20 74 |uble pre|cision t|
|000039e0| 6f 20 6d 61 69 6e 74 69 | 61 6e 20 61 6c 6c 20 33 |o mainti|an all 3|
|000039f0| 32 20 62 69 74 73 0d 09 | 09 65 6c 73 65 0d 09 09 |2 bits..|.else...|
|00003a00| 09 52 65 64 69 6d 65 6e | 73 69 6f 6e 2f 53 20 24 |.Redimen|sion/S $|
|00003a10| 22 64 61 74 61 22 0d 09 | 09 65 6e 64 69 66 0d 09 |"data"..|.endif..|
|00003a20| 09 69 66 28 20 28 62 73 | 63 61 6c 65 21 3d 31 29 |.if( (bs|cale!=1)|
|00003a30| 20 25 7c 20 28 62 7a 65 | 72 6f 21 3d 30 29 20 25 | %| (bze|ro!=0) %|
|00003a40| 7c 20 62 6c 61 6e 6b 76 | 61 6c 69 64 20 29 0d 09 || blankv|alid )..|
|00003a50| 09 09 64 61 74 61 3d 53 | 63 61 6c 65 49 6e 74 44 |..data=S|caleIntD|
|00003a60| 61 74 61 28 64 61 74 61 | 2c 62 73 63 61 6c 65 2c |ata(data|,bscale,|
|00003a70| 62 7a 65 72 6f 2c 62 6c | 61 6e 6b 2c 62 6c 61 6e |bzero,bl|ank,blan|
|00003a80| 6b 76 61 6c 69 64 29 0d | 09 09 65 6e 64 69 66 0d |kvalid).|..endif.|
|00003a90| 09 65 6e 64 69 66 0d 09 | 09 09 0d 65 6e 64 0d 0d |.endif..|...end..|
|00003aa0| 46 75 6e 63 74 69 6f 6e | 20 41 75 74 6f 44 69 73 |Function| AutoDis|
|00003ab0| 70 6c 61 79 44 61 74 61 | 28 64 61 74 61 29 0d 09 |playData|(data)..|
|00003ac0| 57 61 76 65 20 64 61 74 | 61 0d 09 0d 09 56 61 72 |Wave dat|a....Var|
|00003ad0| 69 61 62 6c 65 20 6e 64 | 69 6d 73 3d 20 57 61 76 |iable nd|ims= Wav|
|00003ae0| 65 44 69 6d 73 28 64 61 | 74 61 29 0d 09 69 66 28 |eDims(da|ta)..if(|
|00003af0| 20 6e 64 69 6d 73 20 3e | 20 31 20 29 0d 09 09 44 | ndims >| 1 )...D|
|00003b00| 69 73 70 6c 61 79 3b 41 | 70 70 65 6e 64 49 6d 61 |isplay;A|ppendIma|
|00003b10| 67 65 20 64 61 74 61 0d | 09 09 69 66 28 20 44 69 |ge data.|..if( Di|
|00003b20| 6d 53 69 7a 65 28 64 61 | 74 61 2c 20 32 29 20 3e |mSize(da|ta, 2) >|
|00003b30| 20 33 20 29 0d 09 09 09 | 56 61 72 69 61 62 6c 65 | 3 )....|Variable|
|00003b40| 2f 47 20 63 75 72 50 6c | 61 6e 65 0d 09 09 09 43 |/G curPl|ane....C|
|00003b50| 6f 6e 74 72 6f 6c 42 61 | 72 20 32 32 0d 09 09 09 |ontrolBa|r 22....|
|00003b60| 53 65 74 56 61 72 69 61 | 62 6c 65 20 73 65 74 76 |SetVaria|ble setv|
|00003b70| 61 72 50 6c 61 6e 65 2c | 70 6f 73 3d 7b 39 2c 32 |arPlane,|pos={9,2|
|00003b80| 7d 2c 73 69 7a 65 3d 7b | 39 30 2c 31 37 7d 2c 70 |},size={|90,17},p|
|00003b90| 72 6f 63 3d 53 65 74 56 | 61 72 50 72 6f 63 50 6c |roc=SetV|arProcPl|
|00003ba0| 61 6e 65 2c 74 69 74 6c | 65 3d 22 70 6c 61 6e 65 |ane,titl|e="plane|
|00003bb0| 22 0d 09 09 09 53 65 74 | 56 61 72 69 61 62 6c 65 |"....Set|Variable|
|00003bc0| 20 73 65 74 76 61 72 50 | 6c 61 6e 65 2c 66 6f 72 | setvarP|lane,for|
|00003bd0| 6d 61 74 3d 22 25 64 22 | 0d 09 09 09 53 65 74 56 |mat="%d"|....SetV|
|00003be0| 61 72 69 61 62 6c 65 20 | 73 65 74 76 61 72 50 6c |ariable |setvarPl|
|00003bf0| 61 6e 65 2c 6c 69 6d 69 | 74 73 3d 7b 30 2c 44 69 |ane,limi|ts={0,Di|
|00003c00| 6d 53 69 7a 65 28 64 61 | 74 61 2c 20 32 29 2d 31 |mSize(da|ta, 2)-1|
|00003c10| 2c 31 7d 2c 76 61 6c 75 | 65 3d 20 63 75 72 50 6c |,1},valu|e= curPl|
|00003c20| 61 6e 65 0d 09 09 65 6e | 64 69 66 0d 09 09 44 6f |ane...en|dif...Do|
|00003c30| 41 75 74 6f 53 69 7a 65 | 49 6d 61 67 65 28 30 2c |AutoSize|Image(0,|
|00003c40| 31 29 0d 09 65 6c 73 65 | 0d 09 09 44 69 73 70 6c |1)..else|...Displ|
|00003c50| 61 79 20 64 61 74 61 0d | 09 65 6e 64 69 66 0d 65 |ay data.|.endif.e|
|00003c60| 6e 64 0d 0d 0d 0d 46 75 | 6e 63 74 69 6f 6e 20 53 |nd....Fu|nction S|
|00003c70| 65 74 46 50 6f 73 54 6f | 4e 65 78 74 52 65 63 6f |etFPosTo|NextReco|
|00003c80| 72 64 28 72 65 66 6e 75 | 6d 29 0d 09 56 61 72 69 |rd(refnu|m)..Vari|
|00003c90| 61 62 6c 65 20 72 65 66 | 6e 75 6d 0d 0d 09 46 53 |able ref|num...FS|
|00003ca0| 74 61 74 75 73 20 72 65 | 66 6e 75 6d 0d 09 56 61 |tatus re|fnum..Va|
|00003cb0| 72 69 61 62 6c 65 20 6e | 65 78 74 52 65 63 3d 20 |riable n|extRec= |
|00003cc0| 63 65 69 6c 28 56 5f 66 | 69 6c 65 50 6f 73 2f 32 |ceil(V_f|ilePos/2|
|00003cd0| 38 38 30 29 2a 32 38 38 | 30 0d 09 69 66 28 20 6e |880)*288|0..if( n|
|00003ce0| 65 78 74 52 65 63 20 21 | 3d 20 56 5f 66 69 6c 65 |extRec !|= V_file|
|00003cf0| 50 6f 73 20 29 0d 09 09 | 69 66 28 20 6e 65 78 74 |Pos )...|if( next|
|00003d00| 52 65 63 20 3e 3d 20 56 | 5f 6c 6f 67 45 4f 46 20 |Rec >= V|_logEOF |
|00003d10| 29 0d 09 09 09 53 74 72 | 69 6e 67 2f 47 20 65 72 |)....Str|ing/G er|
|00003d20| 72 6f 72 73 74 72 3d 20 | 22 68 69 74 20 65 6e 64 |rorstr= |"hit end|
|00003d30| 20 6f 66 20 66 69 6c 65 | 22 0d 09 09 09 72 65 74 | of file|"....ret|
|00003d40| 75 72 6e 20 31 0d 09 09 | 65 6e 64 69 66 0d 09 09 |urn 1...|endif...|
|00003d50| 46 53 65 74 50 6f 73 20 | 72 65 66 6e 75 6d 2c 6e |FSetPos |refnum,n|
|00003d60| 65 78 74 52 65 63 0d 09 | 65 6e 64 69 66 0d 09 72 |extRec..|endif..r|
|00003d70| 65 74 75 72 6e 20 30 0d | 65 6e 64 09 0d 0d 46 75 |eturn 0.|end...Fu|
|00003d80| 6e 63 74 69 6f 6e 20 41 | 70 70 65 6e 64 4e 42 28 |nction A|ppendNB(|
|00003d90| 6e 62 2c 73 29 0d 09 53 | 74 72 69 6e 67 20 6e 62 |nb,s)..S|tring nb|
|00003da0| 0d 09 53 74 72 69 6e 67 | 20 73 0d 09 0d 09 69 66 |..String| s....if|
|00003db0| 28 20 73 74 72 6c 65 6e | 28 6e 62 29 20 21 3d 20 |( strlen|(nb) != |
|00003dc0| 30 20 29 0d 09 09 4e 6f | 74 65 62 6f 6f 6b 20 24 |0 )...No|tebook $|
|00003dd0| 6e 62 2c 74 65 78 74 3d | 73 2b 22 5c 72 22 0d 09 |nb,text=|s+"\r"..|
|00003de0| 65 6e 64 69 66 0d 65 6e | 64 0d 0d 46 75 6e 63 74 |endif.en|d..Funct|
|00003df0| 69 6f 6e 2f 53 20 47 65 | 74 46 69 74 73 53 74 72 |ion/S Ge|tFitsStr|
|00003e00| 69 6e 67 28 73 29 0d 09 | 53 74 72 69 6e 67 20 73 |ing(s)..|String s|
|00003e10| 0d 0d 09 53 74 72 69 6e | 67 20 73 74 72 56 61 6c |...Strin|g strVal|
|00003e20| 0d 09 56 61 72 69 61 62 | 6c 65 20 73 74 72 56 61 |..Variab|le strVa|
|00003e30| 6c 56 61 6c 69 64 3d 30 | 2c 73 70 31 0d 09 69 66 |lValid=0|,sp1..if|
|00003e40| 28 20 63 68 61 72 32 6e | 75 6d 28 73 5b 31 30 5d |( char2n|um(s[10]|
|00003e50| 29 20 3d 3d 20 63 68 61 | 72 32 6e 75 6d 28 22 27 |) == cha|r2num("'|
|00003e60| 22 29 20 29 0d 09 09 73 | 74 72 56 61 6c 56 61 6c |") )...s|trValVal|
|00003e70| 69 64 3d 20 31 0d 09 09 | 73 74 72 56 61 6c 3d 20 |id= 1...|strVal= |
|00003e80| 73 5b 31 31 2c 37 39 5d | 0d 09 09 73 70 31 3d 20 |s[11,79]|...sp1= |
|00003e90| 53 74 72 53 65 61 72 63 | 68 28 73 74 72 56 61 6c |StrSearc|h(strVal|
|00003ea0| 2c 22 27 22 2c 30 29 0d | 09 09 69 66 28 20 73 70 |,"'",0).|..if( sp|
|00003eb0| 31 3c 30 20 29 0d 09 09 | 09 73 74 72 56 61 6c 56 |1<0 )...|.strValV|
|00003ec0| 61 6c 69 64 3d 20 30 0d | 09 09 65 6c 73 65 0d 09 |alid= 0.|..else..|
|00003ed0| 09 09 73 74 72 56 61 6c | 3d 20 73 74 72 56 61 6c |..strVal|= strVal|
|00003ee0| 5b 30 2c 73 70 31 2d 31 | 5d 0d 09 09 65 6e 64 69 |[0,sp1-1|]...endi|
|00003ef0| 66 0d 09 65 6e 64 69 66 | 0d 09 69 66 28 20 73 74 |f..endif|..if( st|
|00003f00| 72 56 61 6c 56 61 6c 69 | 64 20 29 0d 09 09 72 65 |rValVali|d )...re|
|00003f10| 74 75 72 6e 20 73 74 72 | 56 61 6c 0d 09 65 6c 73 |turn str|Val..els|
|00003f20| 65 0d 09 09 72 65 74 75 | 72 6e 20 22 22 0d 09 65 |e...retu|rn ""..e|
|00003f30| 6e 64 69 66 0d 65 6e 64 | 0d 09 0d 0d 0d 09 0d 46 |ndif.end|.......F|
|00003f40| 75 6e 63 74 69 6f 6e 20 | 47 65 74 52 65 71 75 69 |unction |GetRequi|
|00003f50| 72 65 64 28 72 65 66 6e | 75 6d 2c 6e 62 2c 64 6f |red(refn|um,nb,do|
|00003f60| 48 65 61 64 65 72 2c 62 | 69 67 42 79 74 65 73 2c |Header,b|igBytes,|
|00003f70| 6e 6f 57 61 76 65 29 0d | 09 56 61 72 69 61 62 6c |noWave).|.Variabl|
|00003f80| 65 20 72 65 66 6e 75 6d | 0d 09 53 74 72 69 6e 67 |e refnum|..String|
|00003f90| 20 6e 62 0d 09 56 61 72 | 69 61 62 6c 65 20 64 6f | nb..Var|iable do|
|00003fa0| 48 65 61 64 65 72 2c 62 | 69 67 42 79 74 65 73 2c |Header,b|igBytes,|
|00003fb0| 6e 6f 57 61 76 65 0d 09 | 0d 09 69 66 28 20 21 64 |noWave..|..if( !d|
|00003fc0| 6f 48 65 61 64 65 72 20 | 29 0d 09 09 6e 62 3d 20 |oHeader |)...nb= |
|00003fd0| 22 22 0d 09 65 6e 64 69 | 66 0d 09 0d 09 53 74 72 |""..endi|f....Str|
|00003fe0| 69 6e 67 20 73 3d 20 50 | 61 64 53 74 72 69 6e 67 |ing s= P|adString|
|00003ff0| 28 22 22 2c 38 30 2c 30 | 29 0d 09 46 42 69 6e 52 |("",80,0|)..FBinR|
|00004000| 65 61 64 20 72 65 66 6e | 75 6d 2c 73 0d 09 41 70 |ead refn|um,s..Ap|
|00004010| 70 65 6e 64 4e 42 28 6e | 62 2c 73 29 0d 0d 09 56 |pendNB(n|b,s)...V|
|00004020| 61 72 69 61 62 6c 65 2f | 47 20 42 49 54 50 49 58 |ariable/|G BITPIX|
|00004030| 0d 09 69 66 28 20 43 6d | 70 53 74 72 28 22 42 49 |..if( Cm|pStr("BI|
|00004040| 54 50 49 58 20 20 3d 20 | 22 2c 73 5b 30 2c 39 5d |TPIX = |",s[0,9]|
|00004050| 29 20 21 3d 20 30 20 29 | 0d 09 09 53 74 72 69 6e |) != 0 )|...Strin|
|00004060| 67 2f 47 20 65 72 72 6f | 72 73 74 72 3d 20 22 42 |g/G erro|rstr= "B|
|00004070| 49 54 50 49 58 20 6d 69 | 73 73 69 6e 67 22 0d 09 |ITPIX mi|ssing"..|
|00004080| 09 72 65 74 75 72 6e 20 | 31 0d 09 65 6e 64 69 66 |.return |1..endif|
|00004090| 0d 09 42 49 54 50 49 58 | 3d 20 73 74 72 32 6e 75 |..BITPIX|= str2nu|
|000040a0| 6d 28 73 5b 31 30 2c 32 | 39 5d 29 0d 09 56 61 72 |m(s[10,2|9])..Var|
|000040b0| 69 61 62 6c 65 20 6e 75 | 6d 62 65 72 54 79 70 65 |iable nu|mberType|
|000040c0| 0d 09 64 6f 0d 09 09 69 | 66 28 20 42 49 54 50 49 |..do...i|f( BITPI|
|000040d0| 58 3d 3d 20 38 20 29 0d | 09 09 09 6e 75 6d 62 65 |X== 8 ).|...numbe|
|000040e0| 72 54 79 70 65 3d 20 38 | 2b 30 78 34 30 0d 09 09 |rType= 8|+0x40...|
|000040f0| 09 62 72 65 61 6b 0d 09 | 09 65 6e 64 69 66 0d 09 |.break..|.endif..|
|00004100| 09 69 66 28 20 42 49 54 | 50 49 58 3d 3d 20 31 36 |.if( BIT|PIX== 16|
|00004110| 20 29 0d 09 09 09 6e 75 | 6d 62 65 72 54 79 70 65 | )....nu|mberType|
|00004120| 3d 20 30 78 31 30 0d 09 | 09 09 62 72 65 61 6b 0d |= 0x10..|..break.|
|00004130| 09 09 65 6e 64 69 66 0d | 09 09 69 66 28 20 42 49 |..endif.|..if( BI|
|00004140| 54 50 49 58 3d 3d 20 33 | 32 20 29 0d 09 09 09 6e |TPIX== 3|2 )....n|
|00004150| 75 6d 62 65 72 54 79 70 | 65 3d 20 30 78 32 30 0d |umberTyp|e= 0x20.|
|00004160| 09 09 09 62 72 65 61 6b | 0d 09 09 65 6e 64 69 66 |...break|...endif|
|00004170| 0d 09 09 69 66 28 20 42 | 49 54 50 49 58 3d 3d 20 |...if( B|ITPIX== |
|00004180| 2d 33 32 20 29 0d 09 09 | 09 6e 75 6d 62 65 72 54 |-32 )...|.numberT|
|00004190| 79 70 65 3d 20 32 0d 09 | 09 09 62 72 65 61 6b 0d |ype= 2..|..break.|
|000041a0| 09 09 65 6e 64 69 66 0d | 09 09 69 66 28 20 42 49 |..endif.|..if( BI|
|000041b0| 54 50 49 58 3d 3d 20 2d | 36 34 20 29 0d 09 09 09 |TPIX== -|64 )....|
|000041c0| 6e 75 6d 62 65 72 54 79 | 70 65 3d 20 31 0d 09 09 |numberTy|pe= 1...|
|000041d0| 09 62 72 65 61 6b 0d 09 | 09 65 6e 64 69 66 0d 09 |.break..|.endif..|
|000041e0| 09 53 74 72 69 6e 67 2f | 47 20 65 72 72 6f 72 73 |.String/|G errors|
|000041f0| 74 72 3d 20 22 42 49 54 | 50 49 58 20 62 61 64 20 |tr= "BIT|PIX bad |
|00004200| 76 61 6c 75 65 22 0d 09 | 09 72 65 74 75 72 6e 20 |value"..|.return |
|00004210| 31 0d 09 77 68 69 6c 65 | 28 30 29 0d 0d 09 46 42 |1..while|(0)...FB|
|00004220| 69 6e 52 65 61 64 20 72 | 65 66 6e 75 6d 2c 73 0d |inRead r|efnum,s.|
|00004230| 09 41 70 70 65 6e 64 4e | 42 28 6e 62 2c 73 29 0d |.AppendN|B(nb,s).|
|00004240| 09 56 61 72 69 61 62 6c | 65 2f 47 20 4e 41 58 49 |.Variabl|e/G NAXI|
|00004250| 53 0d 09 69 66 28 20 43 | 6d 70 53 74 72 28 22 4e |S..if( C|mpStr("N|
|00004260| 41 58 49 53 20 20 20 3d | 20 22 2c 73 5b 30 2c 39 |AXIS =| ",s[0,9|
|00004270| 5d 29 20 21 3d 20 30 20 | 29 0d 09 09 53 74 72 69 |]) != 0 |)...Stri|
|00004280| 6e 67 2f 47 20 65 72 72 | 6f 72 73 74 72 3d 20 22 |ng/G err|orstr= "|
|00004290| 4e 41 58 49 53 20 6d 69 | 73 73 69 6e 67 22 0d 09 |NAXIS mi|ssing"..|
|000042a0| 09 72 65 74 75 72 6e 20 | 31 0d 09 65 6e 64 69 66 |.return |1..endif|
|000042b0| 0d 09 4e 41 58 49 53 3d | 20 73 74 72 32 6e 75 6d |..NAXIS=| str2num|
|000042c0| 28 73 5b 31 30 2c 32 39 | 5d 29 0d 09 56 61 72 69 |(s[10,29|])..Vari|
|000042d0| 61 62 6c 65 20 69 3d 30 | 0d 09 4d 61 6b 65 2f 4f |able i=0|..Make/O|
|000042e0| 2f 4e 3d 32 30 30 20 64 | 69 6d 73 3d 30 09 09 09 |/N=200 d|ims=0...|
|000042f0| 2f 2f 20 31 39 39 20 69 | 73 20 6d 61 78 20 70 6f |// 199 i|s max po|
|00004300| 73 73 69 62 6c 65 20 4e | 41 58 49 53 0d 0d 09 56 |ssible N|AXIS...V|
|00004310| 61 72 69 61 62 6c 65 2f | 47 20 67 44 61 74 61 42 |ariable/|G gDataB|
|00004320| 79 74 65 73 3d 20 61 62 | 73 28 42 49 54 50 49 58 |ytes= ab|s(BITPIX|
|00004330| 29 2f 38 0d 09 56 61 72 | 69 61 62 6c 65 2f 47 20 |)/8..Var|iable/G |
|00004340| 67 53 6b 69 70 44 61 74 | 61 3d 30 0d 09 69 66 28 |gSkipDat|a=0..if(|
|00004350| 20 4e 41 58 49 53 3d 3d | 30 20 29 0d 09 09 67 53 | NAXIS==|0 )...gS|
|00004360| 6b 69 70 44 61 74 61 3d | 20 31 09 09 09 09 2f 2f |kipData=| 1....//|
|00004370| 20 6e 6f 20 70 72 69 6d | 61 72 79 20 64 61 74 61 | no prim|ary data|
|00004380| 0d 09 09 67 44 61 74 61 | 42 79 74 65 73 3d 20 30 |...gData|Bytes= 0|
|00004390| 0d 09 65 6e 64 69 66 0d | 0d 09 64 6f 0d 09 09 69 |..endif.|..do...i|
|000043a0| 66 28 20 69 3e 3d 4e 41 | 58 49 53 20 29 0d 09 09 |f( i>=NA|XIS )...|
|000043b0| 09 62 72 65 61 6b 0d 09 | 09 65 6e 64 69 66 0d 09 |.break..|.endif..|
|000043c0| 09 46 42 69 6e 52 65 61 | 64 20 72 65 66 6e 75 6d |.FBinRea|d refnum|
|000043d0| 2c 73 0d 09 09 41 70 70 | 65 6e 64 4e 42 28 6e 62 |,s...App|endNB(nb|
|000043e0| 2c 73 29 0d 09 09 53 74 | 72 69 6e 67 20 6e 61 6e |,s)...St|ring nan|
|000043f0| 61 6d 65 3d 20 22 4e 41 | 58 49 53 22 2b 6e 75 6d |ame= "NA|XIS"+num|
|00004400| 32 69 73 74 72 28 69 2b | 31 29 0d 09 09 56 61 72 |2istr(i+|1)...Var|
|00004410| 69 61 62 6c 65 2f 47 20 | 24 6e 61 6e 61 6d 65 0d |iable/G |$naname.|
|00004420| 09 09 4e 56 41 52 20 6e | 61 3d 20 24 6e 61 6e 61 |..NVAR n|a= $nana|
|00004430| 6d 65 0d 09 09 69 66 28 | 20 43 6d 70 53 74 72 28 |me...if(| CmpStr(|
|00004440| 50 61 64 53 74 72 69 6e | 67 28 6e 61 6e 61 6d 65 |PadStrin|g(naname|
|00004450| 2c 38 2c 30 78 32 30 29 | 2b 22 3d 20 22 2c 73 5b |,8,0x20)|+"= ",s[|
|00004460| 30 2c 39 5d 29 20 21 3d | 20 30 20 29 0d 09 09 09 |0,9]) !=| 0 )....|
|00004470| 53 74 72 69 6e 67 2f 47 | 20 65 72 72 6f 72 73 74 |String/G| errorst|
|00004480| 72 3d 20 6e 61 6e 61 6d | 65 2b 22 20 6d 69 73 73 |r= nanam|e+" miss|
|00004490| 69 6e 67 22 0d 09 09 09 | 72 65 74 75 72 6e 20 31 |ing"....|return 1|
|000044a0| 0d 09 09 65 6e 64 69 66 | 0d 09 09 6e 61 3d 20 73 |...endif|...na= s|
|000044b0| 74 72 32 6e 75 6d 28 73 | 5b 31 30 2c 32 39 5d 29 |tr2num(s|[10,29])|
|000044c0| 0d 09 09 64 69 6d 73 5b | 69 5d 3d 20 6e 61 0d 09 |...dims[|i]= na..|
|000044d0| 09 67 44 61 74 61 42 79 | 74 65 73 20 2a 3d 20 6e |.gDataBy|tes *= n|
|000044e0| 61 0d 09 09 69 2b 3d 31 | 0d 09 77 68 69 6c 65 28 |a...i+=1|..while(|
|000044f0| 31 29 0d 09 56 61 72 69 | 61 62 6c 65 20 74 72 75 |1)..Vari|able tru|
|00004500| 65 4e 44 69 6d 73 3d 20 | 4e 41 58 49 53 0d 09 69 |eNDims= |NAXIS..i|
|00004510| 66 28 20 28 4e 41 58 49 | 53 20 3e 20 30 29 20 25 |f( (NAXI|S > 0) %|
|00004520| 26 20 28 6e 6f 57 61 76 | 65 3d 3d 30 29 20 29 0d |& (noWav|e==0) ).|
|00004530| 09 09 69 3d 4e 41 58 49 | 53 2d 31 0d 09 09 64 6f |..i=NAXI|S-1...do|
|00004540| 0d 09 09 09 69 66 28 20 | 69 3c 30 20 29 0d 09 09 |....if( |i<0 )...|
|00004550| 09 09 62 72 65 61 6b 0d | 09 09 09 65 6e 64 69 66 |..break.|...endif|
|00004560| 0d 09 09 09 69 66 28 20 | 64 69 6d 73 5b 69 5d 3c |....if( |dims[i]<|
|00004570| 3d 31 20 29 0d 09 09 09 | 09 64 69 6d 73 5b 69 5d |=1 )....|.dims[i]|
|00004580| 3d 20 30 0d 09 09 09 09 | 74 72 75 65 4e 44 69 6d |= 0.....|trueNDim|
|00004590| 73 20 2d 3d 20 31 0d 09 | 09 09 65 6c 73 65 0d 09 |s -= 1..|..else..|
|000045a0| 09 09 09 62 72 65 61 6b | 0d 09 09 09 65 6e 64 69 |...break|....endi|
|000045b0| 66 0d 09 09 09 69 2d 3d | 31 0d 09 09 77 68 69 6c |f....i-=|1...whil|
|000045c0| 65 28 31 29 0d 09 09 0d | 09 09 69 66 28 20 74 72 |e(1)....|..if( tr|
|000045d0| 75 65 4e 44 69 6d 73 20 | 3e 20 34 20 29 0d 09 09 |ueNDims |> 4 )...|
|000045e0| 09 53 74 72 69 6e 67 2f | 47 20 65 72 72 6f 72 73 |.String/|G errors|
|000045f0| 74 72 3d 20 22 4e 41 58 | 49 53 20 3e 20 34 20 6e |tr= "NAX|IS > 4 n|
|00004600| 6f 74 20 73 75 70 70 6f | 72 74 65 64 20 61 74 20 |ot suppo|rted at |
|00004610| 70 72 65 73 65 6e 74 20 | 74 69 6d 65 20 28 63 6f |present |time (co|
|00004620| 75 6c 64 20 62 65 20 64 | 6f 6e 65 20 77 69 74 68 |uld be d|one with|
|00004630| 20 64 61 74 61 20 66 6f | 6c 64 65 72 73 29 22 0d | data fo|lders)".|
|00004640| 09 09 09 72 65 74 75 72 | 6e 20 31 0d 09 09 65 6e |...retur|n 1...en|
|00004650| 64 69 66 0d 09 09 69 66 | 28 20 67 44 61 74 61 42 |dif...if|( gDataB|
|00004660| 79 74 65 73 20 3e 20 62 | 69 67 42 79 74 65 73 20 |ytes > b|igBytes |
|00004670| 29 0d 09 09 09 53 74 72 | 69 6e 67 20 73 31 0d 09 |)....Str|ing s1..|
|00004680| 09 09 73 70 72 69 6e 74 | 66 20 73 31 2c 22 6c 6f |..sprint|f s1,"lo|
|00004690| 61 64 20 62 69 67 20 64 | 61 74 61 20 28 25 64 29 |ad big d|ata (%d)|
|000046a0| 3f 22 2c 67 44 61 74 61 | 42 79 74 65 73 0d 09 09 |?",gData|Bytes...|
|000046b0| 09 44 6f 41 6c 65 72 74 | 20 31 2c 73 31 0d 09 09 |.DoAlert| 1,s1...|
|000046c0| 09 67 53 6b 69 70 44 61 | 74 61 3d 20 56 5f 46 6c |.gSkipDa|ta= V_Fl|
|000046d0| 61 67 21 3d 31 0d 09 09 | 65 6e 64 69 66 0d 09 09 |ag!=1...|endif...|
|000046e0| 69 66 28 20 21 67 53 6b | 69 70 44 61 74 61 20 29 |if( !gSk|ipData )|
|000046f0| 0d 09 09 09 4d 61 6b 65 | 2f 4f 2f 59 3d 28 6e 75 |....Make|/O/Y=(nu|
|00004700| 6d 62 65 72 54 79 70 65 | 29 2f 4e 3d 28 64 69 6d |mberType|)/N=(dim|
|00004710| 73 5b 30 5d 2c 64 69 6d | 73 5b 31 5d 2c 64 69 6d |s[0],dim|s[1],dim|
|00004720| 73 5b 32 5d 2c 64 69 6d | 73 5b 33 5d 29 20 64 61 |s[2],dim|s[3]) da|
|00004730| 74 61 0d 09 09 65 6e 64 | 69 66 0d 09 65 6e 64 69 |ta...end|if..endi|
|00004740| 66 0d 09 4b 69 6c 6c 57 | 61 76 65 73 20 64 69 6d |f..KillW|aves dim|
|00004750| 73 0d 0d 09 72 65 74 75 | 72 6e 20 30 0d 65 6e 64 |s...retu|rn 0.end|
|00004760| 0d 0d 46 75 6e 63 74 69 | 6f 6e 20 4b 57 43 68 65 |..Functi|on KWChe|
|00004770| 63 6b 28 6b 77 2c 73 38 | 29 0d 09 53 74 72 69 6e |ck(kw,s8|)..Strin|
|00004780| 67 20 6b 77 2c 73 38 0d | 09 0d 09 72 65 74 75 72 |g kw,s8.|...retur|
|00004790| 6e 20 43 6d 70 53 74 72 | 28 50 61 64 53 74 72 69 |n CmpStr|(PadStri|
|000047a0| 6e 67 28 6b 77 2c 38 2c | 30 78 32 30 29 2c 73 38 |ng(kw,8,|0x20),s8|
|000047b0| 29 20 3d 3d 20 30 0d 65 | 6e 64 0d 0d 46 75 6e 63 |) == 0.e|nd..Func|
|000047c0| 74 69 6f 6e 2f 53 20 53 | 74 72 69 70 54 72 61 69 |tion/S S|tripTrai|
|000047d0| 6c 28 73 29 0d 09 53 74 | 72 69 6e 67 20 73 0d 09 |l(s)..St|ring s..|
|000047e0| 0d 09 56 61 72 69 61 62 | 6c 65 20 6e 3d 20 73 74 |..Variab|le n= st|
|000047f0| 72 6c 65 6e 28 73 29 2d | 31 0d 09 64 6f 0d 09 09 |rlen(s)-|1..do...|
|00004800| 69 66 28 20 28 6e 3c 3d | 30 29 20 25 7c 20 28 63 |if( (n<=|0) %| (c|
|00004810| 68 61 72 32 6e 75 6d 28 | 73 5b 6e 5d 29 21 3d 30 |har2num(|s[n])!=0|
|00004820| 78 32 30 29 20 29 0d 09 | 09 09 62 72 65 61 6b 0d |x20) )..|..break.|
|00004830| 09 09 65 6e 64 69 66 0d | 09 09 6e 2d 3d 31 0d 09 |..endif.|..n-=1..|
|00004840| 77 68 69 6c 65 28 31 29 | 0d 09 72 65 74 75 72 6e |while(1)|..return|
|00004850| 20 73 5b 30 2c 6e 5d 0d | 65 6e 64 0d 0d 0d 0d 0d | s[0,n].|end.....|
|00004860| 2f 2f 20 72 65 61 64 20 | 68 65 61 64 65 72 20 73 |// read |header s|
|00004870| 74 75 66 66 20 75 6e 74 | 69 6c 20 45 4e 44 20 6f |tuff unt|il END o|
|00004880| 72 20 65 72 72 6f 72 0d | 46 75 6e 63 74 69 6f 6e |r error.|Function|
|00004890| 20 47 65 74 4f 70 74 69 | 6f 6e 61 6c 28 72 65 66 | GetOpti|onal(ref|
|000048a0| 6e 75 6d 2c 6e 62 2c 20 | 64 6f 48 65 61 64 65 72 |num,nb, |doHeader|
|000048b0| 2c 64 6f 48 69 73 74 6f | 72 79 2c 20 64 6f 43 6f |,doHisto|ry, doCo|
|000048c0| 6d 6d 65 6e 74 2c 69 73 | 45 78 74 65 6e 73 69 6f |mment,is|Extensio|
|000048d0| 6e 29 0d 09 56 61 72 69 | 61 62 6c 65 20 72 65 66 |n)..Vari|able ref|
|000048e0| 6e 75 6d 0d 09 53 74 72 | 69 6e 67 20 6e 62 0d 09 |num..Str|ing nb..|
|000048f0| 56 61 72 69 61 62 6c 65 | 20 64 6f 48 65 61 64 65 |Variable| doHeade|
|00004900| 72 2c 64 6f 48 69 73 74 | 6f 72 79 2c 64 6f 43 6f |r,doHist|ory,doCo|
|00004910| 6d 6d 65 6e 74 2c 69 73 | 45 78 74 65 6e 73 69 6f |mment,is|Extensio|
|00004920| 6e 0d 09 0d 09 53 74 72 | 69 6e 67 20 73 3d 20 50 |n....Str|ing s= P|
|00004930| 61 64 53 74 72 69 6e 67 | 28 22 22 2c 38 30 2c 30 |adString|("",80,0|
|00004940| 29 0d 09 53 74 72 69 6e | 67 20 6e 62 54 65 78 74 |)..Strin|g nbText|
|00004950| 3d 22 22 0d 09 56 61 72 | 69 61 62 6c 65 20 69 3d |=""..Var|iable i=|
|00004960| 30 0d 09 64 6f 0d 09 09 | 46 53 74 61 74 75 73 20 |0..do...|FStatus |
|00004970| 72 65 66 6e 75 6d 0d 09 | 09 69 66 28 20 28 56 5f |refnum..|.if( (V_|
|00004980| 66 69 6c 65 50 6f 73 2b | 38 30 29 20 3e 20 56 5f |filePos+|80) > V_|
|00004990| 6c 6f 67 45 4f 46 20 29 | 0d 09 09 09 53 74 72 69 |logEOF )|....Stri|
|000049a0| 6e 67 2f 47 20 65 72 72 | 6f 72 73 74 72 3d 20 22 |ng/G err|orstr= "|
|000049b0| 68 69 74 20 65 6e 64 20 | 6f 66 20 66 69 6c 65 20 |hit end |of file |
|000049c0| 62 65 66 6f 72 65 20 45 | 4e 44 20 63 61 72 64 22 |before E|ND card"|
|000049d0| 0d 09 09 09 72 65 74 75 | 72 6e 20 31 0d 09 09 65 |....retu|rn 1...e|
|000049e0| 6e 64 69 66 0d 09 09 46 | 42 69 6e 52 65 61 64 20 |ndif...F|BinRead |
|000049f0| 72 65 66 6e 75 6d 2c 73 | 0d 09 09 69 66 28 20 43 |refnum,s|...if( C|
|00004a00| 6d 70 53 74 72 28 22 48 | 49 53 54 4f 52 59 22 2c |mpStr("H|ISTORY",|
|00004a10| 73 5b 30 2c 36 5d 29 20 | 3d 3d 20 30 20 29 0d 09 |s[0,6]) |== 0 )..|
|00004a20| 09 09 69 66 28 20 64 6f | 48 69 73 74 6f 72 79 20 |..if( do|History |
|00004a30| 29 0d 09 09 09 09 6e 62 | 54 65 78 74 20 2b 3d 20 |).....nb|Text += |
|00004a40| 73 2b 22 5c 72 22 0d 09 | 09 09 65 6e 64 69 66 0d |s+"\r"..|..endif.|
|00004a50| 09 09 65 6c 73 65 0d 09 | 09 09 69 66 28 20 43 6d |..else..|..if( Cm|
|00004a60| 70 53 74 72 28 22 43 4f | 4d 4d 45 4e 54 22 2c 73 |pStr("CO|MMENT",s|
|00004a70| 5b 30 2c 36 5d 29 20 3d | 3d 20 30 20 29 0d 09 09 |[0,6]) =|= 0 )...|
|00004a80| 09 09 69 66 28 20 64 6f | 43 6f 6d 6d 65 6e 74 20 |..if( do|Comment |
|00004a90| 29 0d 09 09 09 09 09 6e | 62 54 65 78 74 20 2b 3d |)......n|bText +=|
|00004aa0| 20 73 2b 22 5c 72 22 0d | 09 09 09 09 65 6e 64 69 | s+"\r".|....endi|
|00004ab0| 66 0d 09 09 09 65 6c 73 | 65 0d 09 09 09 09 69 66 |f....els|e.....if|
|00004ac0| 28 20 64 6f 48 65 61 64 | 65 72 20 29 0d 09 09 09 |( doHead|er )....|
|00004ad0| 09 09 6e 62 54 65 78 74 | 20 2b 3d 20 73 2b 22 5c |..nbText| += s+"\|
|00004ae0| 72 22 0d 09 09 09 09 65 | 6e 64 69 66 0d 09 09 09 |r".....e|ndif....|
|00004af0| 65 6e 64 69 66 0d 09 09 | 65 6e 64 69 66 0d 09 09 |endif...|endif...|
|00004b00| 69 2b 3d 31 0d 09 09 0d | 09 09 69 66 28 20 43 6d |i+=1....|..if( Cm|
|00004b10| 70 53 74 72 28 22 45 4e | 44 20 22 2c 73 5b 30 2c |pStr("EN|D ",s[0,|
|00004b20| 33 5d 29 20 3d 3d 20 30 | 20 29 09 09 2f 2f 20 74 |3]) == 0| )..// t|
|00004b30| 68 69 73 20 69 73 20 68 | 6f 77 20 77 65 20 65 78 |his is h|ow we ex|
|00004b40| 69 74 3b 20 56 65 72 79 | 20 6c 69 62 65 72 61 6c |it; Very| liberal|
|00004b50| 0d 09 09 09 62 72 65 61 | 6b 0d 09 09 65 6e 64 69 |....brea|k...endi|
|00004b60| 66 0d 09 09 0d 09 09 53 | 74 72 69 6e 67 20 6b 77 |f......S|tring kw|
|00004b70| 3d 20 73 5b 30 2c 37 5d | 0d 09 09 53 74 72 69 6e |= s[0,7]|...Strin|
|00004b80| 67 20 6b 77 35 3d 20 73 | 5b 30 2c 34 5d 09 09 2f |g kw5= s|[0,4]../|
|00004b90| 2f 20 66 6f 72 20 43 54 | 59 50 45 6e 20 65 74 63 |/ for CT|YPEn etc|
|00004ba0| 0d 09 09 53 74 72 69 6e | 67 20 73 74 72 56 61 6c |...Strin|g strVal|
|00004bb0| 0d 09 09 56 61 72 69 61 | 62 6c 65 20 73 74 72 56 |...Varia|ble strV|
|00004bc0| 61 6c 56 61 6c 69 64 3d | 30 2c 73 70 31 2c 73 70 |alValid=|0,sp1,sp|
|00004bd0| 32 0d 09 09 73 70 31 3d | 20 53 74 72 53 65 61 72 |2...sp1=| StrSear|
|00004be0| 63 68 28 73 2c 22 27 22 | 2c 31 30 29 0d 09 09 69 |ch(s,"'"|,10)...i|
|00004bf0| 66 28 20 73 70 31 20 3e | 3d 20 31 30 20 29 0d 09 |f( sp1 >|= 10 )..|
|00004c00| 09 09 73 70 32 3d 20 53 | 74 72 53 65 61 72 63 68 |..sp2= S|trSearch|
|00004c10| 28 73 2c 22 27 22 2c 73 | 70 31 2b 31 29 0d 09 09 |(s,"'",s|p1+1)...|
|00004c20| 09 69 66 28 20 73 70 32 | 20 3e 20 30 20 29 0d 09 |.if( sp2| > 0 )..|
|00004c30| 09 09 09 73 74 72 56 61 | 6c 56 61 6c 69 64 3d 20 |...strVa|lValid= |
|00004c40| 31 0d 09 09 09 09 73 74 | 72 56 61 6c 3d 20 53 74 |1.....st|rVal= St|
|00004c50| 72 69 70 54 72 61 69 6c | 28 73 5b 73 70 31 2b 31 |ripTrail|(s[sp1+1|
|00004c60| 2c 73 70 32 2d 31 5d 29 | 0d 09 09 09 65 6e 64 69 |,sp2-1])|....endi|
|00004c70| 66 0d 09 09 65 6e 64 69 | 66 0d 0d 09 09 56 61 72 |f...endi|f....Var|
|00004c80| 69 61 62 6c 65 20 76 61 | 6c 31 3d 20 73 74 72 32 |iable va|l1= str2|
|00004c90| 6e 75 6d 28 73 5b 31 30 | 2c 32 39 5d 29 0d 09 09 |num(s[10|,29])...|
|00004ca0| 56 61 72 69 61 62 6c 65 | 20 68 61 73 56 61 6c 3d |Variable| hasVal=|
|00004cb0| 20 43 6d 70 53 74 72 28 | 73 5b 38 2c 39 5d 2c 22 | CmpStr(|s[8,9],"|
|00004cc0| 3d 20 22 29 20 3d 3d 20 | 30 0d 09 09 0d 09 09 64 |= ") == |0......d|
|00004cd0| 6f 0d 09 09 09 69 66 28 | 20 4b 57 43 68 65 63 6b |o....if(| KWCheck|
|00004ce0| 28 22 42 55 4e 49 54 22 | 2c 6b 77 29 20 29 0d 09 |("BUNIT"|,kw) )..|
|00004cf0| 09 09 09 69 66 28 20 68 | 61 73 56 61 6c 20 25 26 |...if( h|asVal %&|
|00004d00| 20 73 74 72 56 61 6c 56 | 61 6c 69 64 20 29 0d 09 | strValV|alid )..|
|00004d10| 09 09 09 09 53 74 72 69 | 6e 67 2f 47 20 42 55 4e |....Stri|ng/G BUN|
|00004d20| 49 54 3d 20 73 74 72 56 | 61 6c 0d 09 09 09 09 65 |IT= strV|al.....e|
|00004d30| 6e 64 69 66 0d 09 09 09 | 09 62 72 65 61 6b 0d 09 |ndif....|.break..|
|00004d40| 09 09 65 6e 64 69 66 0d | 0d 09 09 09 69 66 28 20 |..endif.|....if( |
|00004d50| 4b 57 43 68 65 63 6b 28 | 22 42 53 43 41 4c 45 22 |KWCheck(|"BSCALE"|
|00004d60| 2c 6b 77 29 20 29 0d 09 | 09 09 09 69 66 28 20 68 |,kw) )..|...if( h|
|00004d70| 61 73 56 61 6c 20 20 29 | 0d 09 09 09 09 09 56 61 |asVal )|......Va|
|00004d80| 72 69 61 62 6c 65 2f 47 | 20 42 53 43 41 4c 45 3d |riable/G| BSCALE=|
|00004d90| 20 76 61 6c 31 0d 09 09 | 09 09 65 6e 64 69 66 0d | val1...|..endif.|
|00004da0| 09 09 09 09 62 72 65 61 | 6b 0d 09 09 09 65 6e 64 |....brea|k....end|
|00004db0| 69 66 0d 0d 09 09 09 69 | 66 28 20 4b 57 43 68 65 |if.....i|f( KWChe|
|00004dc0| 63 6b 28 22 42 5a 45 52 | 4f 22 2c 6b 77 29 20 29 |ck("BZER|O",kw) )|
|00004dd0| 0d 09 09 09 09 69 66 28 | 20 68 61 73 56 61 6c 20 |.....if(| hasVal |
|00004de0| 20 29 0d 09 09 09 09 09 | 56 61 72 69 61 62 6c 65 | )......|Variable|
|00004df0| 2f 47 20 42 5a 45 52 4f | 3d 20 76 61 6c 31 0d 09 |/G BZERO|= val1..|
|00004e00| 09 09 09 65 6e 64 69 66 | 0d 09 09 09 09 62 72 65 |...endif|.....bre|
|00004e10| 61 6b 0d 09 09 09 65 6e | 64 69 66 0d 0d 09 09 09 |ak....en|dif.....|
|00004e20| 69 66 28 20 4b 57 43 68 | 65 63 6b 28 22 42 4c 41 |if( KWCh|eck("BLA|
|00004e30| 4e 4b 22 2c 6b 77 29 20 | 29 0d 09 09 09 09 69 66 |NK",kw) |).....if|
|00004e40| 28 20 68 61 73 56 61 6c | 20 20 29 0d 09 09 09 09 |( hasVal| ).....|
|00004e50| 09 56 61 72 69 61 62 6c | 65 2f 47 20 42 4c 41 4e |.Variabl|e/G BLAN|
|00004e60| 4b 3d 20 76 61 6c 31 0d | 09 09 09 09 65 6e 64 69 |K= val1.|....endi|
|00004e70| 66 0d 09 09 09 09 62 72 | 65 61 6b 0d 09 09 09 65 |f.....br|eak....e|
|00004e80| 6e 64 69 66 0d 09 09 09 | 69 66 28 20 43 6d 70 53 |ndif....|if( CmpS|
|00004e90| 74 72 28 22 43 54 59 50 | 45 22 2c 6b 77 35 29 3d |tr("CTYP|E",kw5)=|
|00004ea0| 3d 30 20 29 0d 09 09 09 | 09 69 66 28 20 73 74 72 |=0 )....|.if( str|
|00004eb0| 56 61 6c 56 61 6c 69 64 | 20 20 29 0d 09 09 09 09 |ValValid| ).....|
|00004ec0| 09 53 74 72 69 6e 67 2f | 47 20 24 53 74 72 69 70 |.String/|G $Strip|
|00004ed0| 54 72 61 69 6c 28 6b 77 | 29 3d 20 73 74 72 56 61 |Trail(kw|)= strVa|
|00004ee0| 6c 0d 09 09 09 09 65 6e | 64 69 66 0d 09 09 09 09 |l.....en|dif.....|
|00004ef0| 62 72 65 61 6b 0d 09 09 | 09 65 6e 64 69 66 0d 09 |break...|.endif..|
|00004f00| 09 09 69 66 28 20 43 6d | 70 53 74 72 28 22 43 52 |..if( Cm|pStr("CR|
|00004f10| 56 41 4c 22 2c 6b 77 35 | 29 3d 3d 30 20 29 0d 09 |VAL",kw5|)==0 )..|
|00004f20| 09 09 09 69 66 28 20 68 | 61 73 56 61 6c 20 20 29 |...if( h|asVal )|
|00004f30| 0d 09 09 09 09 09 56 61 | 72 69 61 62 6c 65 2f 47 |......Va|riable/G|
|00004f40| 20 24 53 74 72 69 70 54 | 72 61 69 6c 28 6b 77 29 | $StripT|rail(kw)|
|00004f50| 3d 20 76 61 6c 31 0d 09 | 09 09 09 65 6e 64 69 66 |= val1..|...endif|
|00004f60| 0d 09 09 09 09 62 72 65 | 61 6b 0d 09 09 09 65 6e |.....bre|ak....en|
|00004f70| 64 69 66 0d 09 09 09 69 | 66 28 20 43 6d 70 53 74 |dif....i|f( CmpSt|
|00004f80| 72 28 22 43 44 45 4c 54 | 22 2c 6b 77 35 29 3d 3d |r("CDELT|",kw5)==|
|00004f90| 30 20 29 0d 09 09 09 09 | 69 66 28 20 68 61 73 56 |0 ).....|if( hasV|
|00004fa0| 61 6c 20 20 29 0d 09 09 | 09 09 09 56 61 72 69 61 |al )...|...Varia|
|00004fb0| 62 6c 65 2f 47 20 24 53 | 74 72 69 70 54 72 61 69 |ble/G $S|tripTrai|
|00004fc0| 6c 28 6b 77 29 3d 20 76 | 61 6c 31 0d 09 09 09 09 |l(kw)= v|al1.....|
|00004fd0| 65 6e 64 69 66 0d 09 09 | 09 09 62 72 65 61 6b 0d |endif...|..break.|
|00004fe0| 09 09 09 65 6e 64 69 66 | 0d 09 09 09 69 66 28 20 |...endif|....if( |
|00004ff0| 43 6d 70 53 74 72 28 22 | 43 52 50 49 58 22 2c 6b |CmpStr("|CRPIX",k|
|00005000| 77 35 29 3d 3d 30 20 29 | 0d 09 09 09 09 69 66 28 |w5)==0 )|.....if(|
|00005010| 20 68 61 73 56 61 6c 20 | 20 29 0d 09 09 09 09 09 | hasVal | )......|
|00005020| 56 61 72 69 61 62 6c 65 | 2f 47 20 24 53 74 72 69 |Variable|/G $Stri|
|00005030| 70 54 72 61 69 6c 28 6b | 77 29 3d 20 76 61 6c 31 |pTrail(k|w)= val1|
|00005040| 0d 09 09 09 09 65 6e 64 | 69 66 0d 09 09 09 09 62 |.....end|if.....b|
|00005050| 72 65 61 6b 0d 09 09 09 | 65 6e 64 69 66 0d 09 09 |reak....|endif...|
|00005060| 09 69 66 28 20 43 6d 70 | 53 74 72 28 22 43 52 4f |.if( Cmp|Str("CRO|
|00005070| 54 41 22 2c 6b 77 35 29 | 3d 3d 30 20 29 0d 09 09 |TA",kw5)|==0 )...|
|00005080| 09 09 69 66 28 20 68 61 | 73 56 61 6c 20 20 29 0d |..if( ha|sVal ).|
|00005090| 09 09 09 09 09 56 61 72 | 69 61 62 6c 65 2f 47 20 |.....Var|iable/G |
|000050a0| 24 53 74 72 69 70 54 72 | 61 69 6c 28 6b 77 29 3d |$StripTr|ail(kw)=|
|000050b0| 20 76 61 6c 31 0d 09 09 | 09 09 65 6e 64 69 66 0d | val1...|..endif.|
|000050c0| 09 09 09 09 62 72 65 61 | 6b 0d 09 09 09 65 6e 64 |....brea|k....end|
|000050d0| 69 66 0d 09 09 09 69 66 | 28 69 73 45 78 74 65 6e |if....if|(isExten|
|000050e0| 73 69 6f 6e 20 29 0d 09 | 09 09 09 69 66 28 20 4b |sion )..|...if( K|
|000050f0| 57 43 68 65 63 6b 28 22 | 50 43 4f 55 4e 54 22 2c |WCheck("|PCOUNT",|
|00005100| 6b 77 29 20 29 0d 09 09 | 09 09 09 69 66 28 20 68 |kw) )...|...if( h|
|00005110| 61 73 56 61 6c 20 20 29 | 0d 09 09 09 09 09 09 56 |asVal )|.......V|
|00005120| 61 72 69 61 62 6c 65 2f | 47 20 50 43 4f 55 4e 54 |ariable/|G PCOUNT|
|00005130| 3d 20 76 61 6c 31 0d 09 | 09 09 09 09 65 6e 64 69 |= val1..|....endi|
|00005140| 66 0d 09 09 09 09 09 62 | 72 65 61 6b 0d 09 09 09 |f......b|reak....|
|00005150| 09 65 6e 64 69 66 0d 09 | 09 09 09 69 66 28 20 4b |.endif..|...if( K|
|00005160| 57 43 68 65 63 6b 28 22 | 47 43 4f 55 4e 54 22 2c |WCheck("|GCOUNT",|
|00005170| 6b 77 29 20 29 0d 09 09 | 09 09 09 69 66 28 20 68 |kw) )...|...if( h|
|00005180| 61 73 56 61 6c 20 20 29 | 0d 09 09 09 09 09 09 56 |asVal )|.......V|
|00005190| 61 72 69 61 62 6c 65 2f | 47 20 47 43 4f 55 4e 54 |ariable/|G GCOUNT|
|000051a0| 3d 20 76 61 6c 31 0d 09 | 09 09 09 09 65 6e 64 69 |= val1..|....endi|
|000051b0| 66 0d 09 09 09 09 09 62 | 72 65 61 6b 0d 09 09 09 |f......b|reak....|
|000051c0| 09 65 6e 64 69 66 0d 09 | 09 09 65 6e 64 69 66 0d |.endif..|..endif.|
|000051d0| 0d 09 09 77 68 69 6c 65 | 28 30 29 0d 09 77 68 69 |...while|(0)..whi|
|000051e0| 6c 65 28 31 29 0d 0d 09 | 69 66 28 20 28 73 74 72 |le(1)...|if( (str|
|000051f0| 6c 65 6e 28 6e 62 29 21 | 3d 30 29 20 25 26 20 28 |len(nb)!|=0) %& (|
|00005200| 73 74 72 6c 65 6e 28 6e | 62 54 65 78 74 29 21 3d |strlen(n|bText)!=|
|00005210| 30 29 20 29 0d 09 09 4e | 6f 74 65 62 6f 6f 6b 20 |0) )...N|otebook |
|00005220| 24 6e 62 2c 74 65 78 74 | 3d 6e 62 54 65 78 74 0d |$nb,text|=nbText.|
|00005230| 09 65 6e 64 69 66 0d 09 | 09 0d 09 72 65 74 75 72 |.endif..|...retur|
|00005240| 6e 20 30 0d 65 6e 64 0d | 0d 0d 46 75 6e 63 74 69 |n 0.end.|..Functi|
|00005250| 6f 6e 20 43 68 65 63 6b | 50 72 6f 63 46 69 74 73 |on Check|ProcFits|
|00005260| 47 65 6e 65 72 69 63 28 | 63 74 72 6c 4e 61 6d 65 |Generic(|ctrlName|
|00005270| 2c 63 68 65 63 6b 65 64 | 29 20 3a 20 43 68 65 63 |,checked|) : Chec|
|00005280| 6b 42 6f 78 43 6f 6e 74 | 72 6f 6c 0d 09 53 74 72 |kBoxCont|rol..Str|
|00005290| 69 6e 67 20 63 74 72 6c | 4e 61 6d 65 0d 09 56 61 |ing ctrl|Name..Va|
|000052a0| 72 69 61 62 6c 65 20 63 | 68 65 63 6b 65 64 0d 0d |riable c|hecked..|
|000052b0| 09 69 66 28 20 43 6d 70 | 53 74 72 28 63 74 72 6c |.if( Cmp|Str(ctrl|
|000052c0| 4e 61 6d 65 2c 22 63 68 | 65 63 6b 48 65 61 64 22 |Name,"ch|eckHead"|
|000052d0| 29 20 3d 3d 20 30 20 29 | 0d 09 09 56 61 72 69 61 |) == 0 )|...Varia|
|000052e0| 62 6c 65 2f 47 20 72 6f | 6f 74 3a 50 61 63 6b 61 |ble/G ro|ot:Packa|
|000052f0| 67 65 73 3a 46 49 54 53 | 3a 77 61 6e 74 48 65 61 |ges:FITS|:wantHea|
|00005300| 64 65 72 3d 20 63 68 65 | 63 6b 65 64 0d 09 65 6e |der= che|cked..en|
|00005310| 64 69 66 0d 09 69 66 28 | 20 43 6d 70 53 74 72 28 |dif..if(| CmpStr(|
|00005320| 63 74 72 6c 4e 61 6d 65 | 2c 22 63 68 65 63 6b 48 |ctrlName|,"checkH|
|00005330| 69 73 74 22 29 20 3d 3d | 20 30 20 29 0d 09 09 56 |ist") ==| 0 )...V|
|00005340| 61 72 69 61 62 6c 65 2f | 47 20 72 6f 6f 74 3a 50 |ariable/|G root:P|
|00005350| 61 63 6b 61 67 65 73 3a | 46 49 54 53 3a 77 61 6e |ackages:|FITS:wan|
|00005360| 74 48 69 73 74 6f 72 79 | 3d 20 63 68 65 63 6b 65 |tHistory|= checke|
|00005370| 64 0d 09 65 6e 64 69 66 | 0d 09 69 66 28 20 43 6d |d..endif|..if( Cm|
|00005380| 70 53 74 72 28 63 74 72 | 6c 4e 61 6d 65 2c 22 63 |pStr(ctr|lName,"c|
|00005390| 68 65 63 6b 43 6f 6d 22 | 29 20 3d 3d 20 30 20 29 |heckCom"|) == 0 )|
|000053a0| 0d 09 09 56 61 72 69 61 | 62 6c 65 2f 47 20 72 6f |...Varia|ble/G ro|
|000053b0| 6f 74 3a 50 61 63 6b 61 | 67 65 73 3a 46 49 54 53 |ot:Packa|ges:FITS|
|000053c0| 3a 77 61 6e 74 43 6f 6d | 6d 65 6e 74 73 3d 20 63 |:wantCom|ments= c|
|000053d0| 68 65 63 6b 65 64 0d 09 | 65 6e 64 69 66 0d 09 69 |hecked..|endif..i|
|000053e0| 66 28 20 43 6d 70 53 74 | 72 28 63 74 72 6c 4e 61 |f( CmpSt|r(ctrlNa|
|000053f0| 6d 65 2c 22 63 68 65 63 | 6b 41 75 74 6f 44 69 73 |me,"chec|kAutoDis|
|00005400| 70 22 29 20 3d 3d 20 30 | 20 29 0d 09 09 56 61 72 |p") == 0| )...Var|
|00005410| 69 61 62 6c 65 2f 47 20 | 72 6f 6f 74 3a 50 61 63 |iable/G |root:Pac|
|00005420| 6b 61 67 65 73 3a 46 49 | 54 53 3a 77 61 6e 74 41 |kages:FI|TS:wantA|
|00005430| 75 74 6f 44 69 73 70 6c | 61 79 3d 20 63 68 65 63 |utoDispl|ay= chec|
|00005440| 6b 65 64 0d 09 65 6e 64 | 69 66 0d 09 69 66 28 20 |ked..end|if..if( |
|00005450| 43 6d 70 53 74 72 28 63 | 74 72 6c 4e 61 6d 65 2c |CmpStr(c|trlName,|
|00005460| 22 63 68 65 63 6b 50 72 | 6f 6d 6f 74 65 49 6e 74 |"checkPr|omoteInt|
|00005470| 73 22 29 20 3d 3d 20 30 | 20 29 0d 09 09 56 61 72 |s") == 0| )...Var|
|00005480| 69 61 62 6c 65 2f 47 20 | 72 6f 6f 74 3a 50 61 63 |iable/G |root:Pac|
|00005490| 6b 61 67 65 73 3a 46 49 | 54 53 3a 70 72 6f 6d 6f |kages:FI|TS:promo|
|000054a0| 74 65 49 6e 74 73 3d 20 | 63 68 65 63 6b 65 64 0d |teInts= |checked.|
|000054b0| 09 65 6e 64 69 66 0d 45 | 6e 64 0d 0d 46 75 6e 63 |.endif.E|nd..Func|
|000054c0| 74 69 6f 6e 20 42 75 74 | 74 6f 6e 50 72 6f 63 4c |tion But|tonProcL|
|000054d0| 6f 61 64 46 69 74 73 28 | 63 74 72 6c 4e 61 6d 65 |oadFits(|ctrlName|
|000054e0| 29 20 3a 20 42 75 74 74 | 6f 6e 43 6f 6e 74 72 6f |) : Butt|onContro|
|000054f0| 6c 0d 09 53 74 72 69 6e | 67 20 63 74 72 6c 4e 61 |l..Strin|g ctrlNa|
|00005500| 6d 65 0d 0d 09 4c 6f 61 | 64 46 49 54 53 28 29 0d |me...Loa|dFITS().|
|00005510| 45 6e 64 0d 0d 57 69 6e | 64 6f 77 20 46 49 54 53 |End..Win|dow FITS|
|00005520| 50 61 6e 65 6c 28 29 20 | 3a 20 50 61 6e 65 6c 0d |Panel() |: Panel.|
|00005530| 09 50 61 75 73 65 55 70 | 64 61 74 65 3b 20 53 69 |.PauseUp|date; Si|
|00005540| 6c 65 6e 74 20 31 09 09 | 7c 20 62 75 69 6c 64 69 |lent 1..|| buildi|
|00005550| 6e 67 20 77 69 6e 64 6f | 77 2e 2e 2e 0d 09 4e 65 |ng windo|w.....Ne|
|00005560| 77 50 61 6e 65 6c 20 2f | 57 3d 28 37 31 2c 38 39 |wPanel /|W=(71,89|
|00005570| 2c 33 37 31 2c 32 38 39 | 29 0d 09 43 68 65 63 6b |,371,289|)..Check|
|00005580| 42 6f 78 20 63 68 65 63 | 6b 48 65 61 64 2c 70 6f |Box chec|kHead,po|
|00005590| 73 3d 7b 34 37 2c 34 32 | 7d 2c 73 69 7a 65 3d 7b |s={47,42|},size={|
|000055a0| 31 33 39 2c 32 30 7d 2c | 70 72 6f 63 3d 43 68 65 |139,20},|proc=Che|
|000055b0| 63 6b 50 72 6f 63 46 69 | 74 73 47 65 6e 65 72 69 |ckProcFi|tsGeneri|
|000055c0| 63 2c 74 69 74 6c 65 3d | 22 49 6e 63 6c 75 64 65 |c,title=|"Include|
|000055d0| 20 48 65 61 64 65 72 22 | 2c 76 61 6c 75 65 3d 31 | Header"|,value=1|
|000055e0| 0d 09 43 68 65 63 6b 42 | 6f 78 20 63 68 65 63 6b |..CheckB|ox check|
|000055f0| 48 69 73 74 2c 70 6f 73 | 3d 7b 34 37 2c 35 39 7d |Hist,pos|={47,59}|
|00005600| 2c 73 69 7a 65 3d 7b 31 | 33 39 2c 32 30 7d 2c 70 |,size={1|39,20},p|
|00005610| 72 6f 63 3d 43 68 65 63 | 6b 50 72 6f 63 46 69 74 |roc=Chec|kProcFit|
|00005620| 73 47 65 6e 65 72 69 63 | 2c 74 69 74 6c 65 3d 22 |sGeneric|,title="|
|00005630| 49 6e 63 6c 75 64 65 20 | 48 69 73 74 6f 72 79 22 |Include |History"|
|00005640| 2c 76 61 6c 75 65 3d 30 | 0d 09 43 68 65 63 6b 42 |,value=0|..CheckB|
|00005650| 6f 78 20 63 68 65 63 6b | 43 6f 6d 2c 70 6f 73 3d |ox check|Com,pos=|
|00005660| 7b 34 37 2c 37 35 7d 2c | 73 69 7a 65 3d 7b 31 33 |{47,75},|size={13|
|00005670| 39 2c 32 30 7d 2c 70 72 | 6f 63 3d 43 68 65 63 6b |9,20},pr|oc=Check|
|00005680| 50 72 6f 63 46 69 74 73 | 47 65 6e 65 72 69 63 2c |ProcFits|Generic,|
|00005690| 74 69 74 6c 65 3d 22 49 | 6e 63 6c 75 64 65 20 43 |title="I|nclude C|
|000056a0| 6f 6d 6d 65 6e 74 73 22 | 2c 76 61 6c 75 65 3d 30 |omments"|,value=0|
|000056b0| 0d 09 43 68 65 63 6b 42 | 6f 78 20 63 68 65 63 6b |..CheckB|ox check|
|000056c0| 41 75 74 6f 44 69 73 70 | 2c 70 6f 73 3d 7b 34 37 |AutoDisp|,pos={47|
|000056d0| 2c 31 30 37 7d 2c 73 69 | 7a 65 3d 7b 31 33 39 2c |,107},si|ze={139,|
|000056e0| 32 30 7d 2c 70 72 6f 63 | 3d 43 68 65 63 6b 50 72 |20},proc|=CheckPr|
|000056f0| 6f 63 46 69 74 73 47 65 | 6e 65 72 69 63 2c 74 69 |ocFitsGe|neric,ti|
|00005700| 74 6c 65 3d 22 41 75 74 | 6f 20 44 69 73 70 6c 61 |tle="Aut|o Displa|
|00005710| 79 22 2c 76 61 6c 75 65 | 3d 31 0d 09 43 68 65 63 |y",value|=1..Chec|
|00005720| 6b 42 6f 78 20 63 68 65 | 63 6b 50 72 6f 6d 6f 74 |kBox che|ckPromot|
|00005730| 65 49 6e 74 73 2c 70 6f | 73 3d 7b 34 37 2c 39 31 |eInts,po|s={47,91|
|00005740| 7d 2c 73 69 7a 65 3d 7b | 31 33 39 2c 32 30 7d 2c |},size={|139,20},|
|00005750| 70 72 6f 63 3d 43 68 65 | 63 6b 50 72 6f 63 46 69 |proc=Che|ckProcFi|
|00005760| 74 73 47 65 6e 65 72 69 | 63 2c 74 69 74 6c 65 3d |tsGeneri|c,title=|
|00005770| 22 50 72 6f 6d 6f 74 65 | 20 49 6e 74 73 22 2c 76 |"Promote| Ints",v|
|00005780| 61 6c 75 65 3d 30 0d 09 | 53 65 74 56 61 72 69 61 |alue=0..|SetVaria|
|00005790| 62 6c 65 20 73 65 74 76 | 61 72 41 73 6b 53 69 7a |ble setv|arAskSiz|
|000057a0| 65 2c 70 6f 73 3d 7b 34 | 37 2c 31 32 37 7d 2c 73 |e,pos={4|7,127},s|
|000057b0| 69 7a 65 3d 7b 32 31 36 | 2c 31 37 7d 2c 74 69 74 |ize={216|,17},tit|
|000057c0| 6c 65 3d 22 4d 61 78 20 | 61 75 74 6f 6c 6f 61 64 |le="Max |autoload|
|000057d0| 20 73 69 7a 65 22 0d 09 | 53 65 74 56 61 72 69 61 | size"..|SetVaria|
|000057e0| 62 6c 65 20 73 65 74 76 | 61 72 41 73 6b 53 69 7a |ble setv|arAskSiz|
|000057f0| 65 2c 66 6f 72 6d 61 74 | 3d 22 25 64 22 0d 09 53 |e,format|="%d"..S|
|00005800| 65 74 56 61 72 69 61 62 | 6c 65 20 73 65 74 76 61 |etVariab|le setva|
|00005810| 72 41 73 6b 53 69 7a 65 | 2c 6c 69 6d 69 74 73 3d |rAskSize|,limits=|
|00005820| 7b 30 2c 49 4e 46 2c 31 | 30 30 30 30 30 7d 2c 76 |{0,INF,1|00000},v|
|00005830| 61 6c 75 65 3d 20 72 6f | 6f 74 3a 50 61 63 6b 61 |alue= ro|ot:Packa|
|00005840| 67 65 73 3a 46 49 54 53 | 3a 61 73 6b 69 66 53 69 |ges:FITS|:askifSi|
|00005850| 7a 65 0d 09 42 75 74 74 | 6f 6e 20 62 75 74 74 6f |ze..Butt|on butto|
|00005860| 6e 4c 6f 61 64 2c 70 6f | 73 3d 7b 32 34 2c 31 34 |nLoad,po|s={24,14|
|00005870| 7d 2c 73 69 7a 65 3d 7b | 39 39 2c 32 30 7d 2c 70 |},size={|99,20},p|
|00005880| 72 6f 63 3d 42 75 74 74 | 6f 6e 50 72 6f 63 4c 6f |roc=Butt|onProcLo|
|00005890| 61 64 46 69 74 73 2c 74 | 69 74 6c 65 3d 22 4c 6f |adFits,t|itle="Lo|
|000058a0| 61 64 20 46 49 54 53 2e | 2e 2e 22 0d 09 50 6f 70 |ad FITS.|.."..Pop|
|000058b0| 75 70 4d 65 6e 75 20 70 | 6f 70 75 70 50 61 74 68 |upMenu p|opupPath|
|000058c0| 2c 70 6f 73 3d 7b 31 33 | 33 2c 31 34 7d 2c 73 69 |,pos={13|3,14},si|
|000058d0| 7a 65 3d 7b 31 32 36 2c | 31 39 7d 2c 70 72 6f 63 |ze={126,|19},proc|
|000058e0| 3d 50 61 74 68 50 6f 70 | 4d 65 6e 75 50 72 6f 63 |=PathPop|MenuProc|
|000058f0| 2c 74 69 74 6c 65 3d 22 | 70 61 74 68 22 0d 09 50 |,title="|path"..P|
|00005900| 6f 70 75 70 4d 65 6e 75 | 20 70 6f 70 75 70 50 61 |opupMenu| popupPa|
|00005910| 74 68 2c 6d 6f 64 65 3d | 32 2c 70 6f 70 76 61 6c |th,mode=|2,popval|
|00005920| 75 65 3d 22 5f 63 75 72 | 72 65 6e 74 5f 22 2c 76 |ue="_cur|rent_",v|
|00005930| 61 6c 75 65 3d 20 23 22 | 5c 22 5f 6e 65 77 5f 3b |alue= #"|\"_new_;|
|00005940| 5f 63 75 72 72 65 6e 74 | 5f 3b 5c 22 2b 50 61 74 |_current|_;\"+Pat|
|00005950| 68 4c 69 73 74 28 5c 22 | 2a 5c 22 2c 20 5c 22 3b |hList(\"|*\", \";|
|00005960| 5c 22 2c 20 5c 22 5c 22 | 29 22 0d 45 6e 64 4d 61 |\", \"\"|)".EndMa|
|00005970| 63 72 6f 0d 0d 0d 46 75 | 6e 63 74 69 6f 6e 20 53 |cro...Fu|nction S|
|00005980| 65 74 56 61 72 50 72 6f | 63 50 6c 61 6e 65 28 63 |etVarPro|cPlane(c|
|00005990| 74 72 6c 4e 61 6d 65 2c | 76 61 72 4e 75 6d 2c 76 |trlName,|varNum,v|
|000059a0| 61 72 53 74 72 2c 76 61 | 72 4e 61 6d 65 29 20 3a |arStr,va|rName) :|
|000059b0| 20 53 65 74 56 61 72 69 | 61 62 6c 65 43 6f 6e 74 | SetVari|ableCont|
|000059c0| 72 6f 6c 0d 09 53 74 72 | 69 6e 67 20 63 74 72 6c |rol..Str|ing ctrl|
|000059d0| 4e 61 6d 65 0d 09 56 61 | 72 69 61 62 6c 65 20 76 |Name..Va|riable v|
|000059e0| 61 72 4e 75 6d 0d 09 53 | 74 72 69 6e 67 20 76 61 |arNum..S|tring va|
|000059f0| 72 53 74 72 0d 09 53 74 | 72 69 6e 67 20 76 61 72 |rStr..St|ring var|
|00005a00| 4e 61 6d 65 0d 0d 09 4d | 6f 64 69 66 79 49 6d 61 |Name...M|odifyIma|
|00005a10| 67 65 20 64 61 74 61 2c | 70 6c 61 6e 65 3d 76 61 |ge data,|plane=va|
|00005a20| 72 4e 75 6d 0d 45 6e 64 | 0d 0d 50 72 6f 63 20 47 |rNum.End|..Proc G|
|00005a30| 65 74 50 61 74 68 4e 61 | 6d 65 28 70 6e 29 0d 09 |etPathNa|me(pn)..|
|00005a40| 53 74 72 69 6e 67 20 70 | 6e 3d 20 22 6d 79 50 61 |String p|n= "myPa|
|00005a50| 74 68 22 0d 09 50 72 6f | 6d 70 74 20 70 6e 2c 22 |th"..Pro|mpt pn,"|
|00005a60| 6e 61 6d 65 20 66 6f 72 | 20 6e 65 77 20 70 61 74 |name for| new pat|
|00005a70| 68 22 0d 09 0d 09 53 74 | 72 69 6e 67 2f 47 20 70 |h"....St|ring/G p|
|00005a80| 61 74 68 6e 61 6d 65 3d | 20 70 6e 0d 65 6e 64 0d |athname=| pn.end.|
|00005a90| 09 0d 0d 46 75 6e 63 74 | 69 6f 6e 20 50 61 74 68 |...Funct|ion Path|
|00005aa0| 50 6f 70 4d 65 6e 75 50 | 72 6f 63 28 63 74 72 6c |PopMenuP|roc(ctrl|
|00005ab0| 4e 61 6d 65 2c 70 6f 70 | 4e 75 6d 2c 70 6f 70 53 |Name,pop|Num,popS|
|00005ac0| 74 72 29 20 3a 20 50 6f | 70 75 70 4d 65 6e 75 43 |tr) : Po|pupMenuC|
|00005ad0| 6f 6e 74 72 6f 6c 0d 09 | 53 74 72 69 6e 67 20 63 |ontrol..|String c|
|00005ae0| 74 72 6c 4e 61 6d 65 0d | 09 56 61 72 69 61 62 6c |trlName.|.Variabl|
|00005af0| 65 20 70 6f 70 4e 75 6d | 0d 09 53 74 72 69 6e 67 |e popNum|..String|
|00005b00| 20 70 6f 70 53 74 72 0d | 09 0d 09 69 66 28 20 43 | popStr.|...if( C|
|00005b10| 6d 70 53 74 72 28 70 6f | 70 53 74 72 2c 22 5f 6e |mpStr(po|pStr,"_n|
|00005b20| 65 77 5f 22 29 20 3d 3d | 20 30 20 29 0d 09 09 4e |ew_") ==| 0 )...N|
|00005b30| 65 77 44 61 74 61 46 6f | 6c 64 65 72 2f 4f 2f 53 |ewDataFo|lder/O/S|
|00005b40| 20 70 70 6d 70 54 6d 70 | 0d 09 09 45 78 65 63 75 | ppmpTmp|...Execu|
|00005b50| 74 65 20 22 47 65 74 50 | 61 74 68 4e 61 6d 65 28 |te "GetP|athName(|
|00005b60| 29 22 0d 09 09 70 6f 70 | 53 74 72 3d 20 53 74 72 |)"...pop|Str= Str|
|00005b70| 56 61 72 4f 72 44 65 66 | 61 75 6c 74 28 22 70 61 |VarOrDef|ault("pa|
|00005b80| 74 68 6e 61 6d 65 22 2c | 22 22 29 0d 09 09 4b 69 |thname",|"")...Ki|
|00005b90| 6c 6c 44 61 74 61 46 6f | 6c 64 65 72 20 3a 0d 09 |llDataFo|lder :..|
|00005ba0| 09 69 66 28 20 73 74 72 | 6c 65 6e 28 70 6f 70 53 |.if( str|len(popS|
|00005bb0| 74 72 29 21 3d 30 20 29 | 0d 09 09 09 4e 65 77 50 |tr)!=0 )|....NewP|
|00005bc0| 61 74 68 20 2f 4d 3d 22 | 66 6f 6c 64 65 72 20 63 |ath /M="|folder c|
|00005bd0| 6f 6e 74 61 69 6e 69 6e | 67 20 46 49 54 53 20 66 |ontainin|g FITS f|
|00005be0| 69 6c 65 73 22 2f 51 20 | 24 70 6f 70 53 74 72 0d |iles"/Q |$popStr.|
|00005bf0| 09 09 09 50 6f 70 75 70 | 4d 65 6e 75 20 70 6f 70 |...Popup|Menu pop|
|00005c00| 75 70 50 61 74 68 2c 6d | 6f 64 65 3d 31 2c 70 6f |upPath,m|ode=1,po|
|00005c10| 70 76 61 6c 75 65 3d 70 | 6f 70 53 74 72 0d 09 09 |pvalue=p|opStr...|
|00005c20| 65 6c 73 65 0d 09 09 09 | 53 56 41 52 20 63 70 3d |else....|SVAR cp=|
|00005c30| 20 72 6f 6f 74 3a 50 61 | 63 6b 61 67 65 73 3a 46 | root:Pa|ckages:F|
|00005c40| 49 54 53 3a 74 68 65 50 | 61 74 68 0d 09 09 09 50 |ITS:theP|ath....P|
|00005c50| 6f 70 75 70 4d 65 6e 75 | 20 70 6f 70 75 70 50 61 |opupMenu| popupPa|
|00005c60| 74 68 2c 6d 6f 64 65 3d | 31 2c 70 6f 70 76 61 6c |th,mode=|1,popval|
|00005c70| 75 65 3d 63 70 0d 09 09 | 09 72 65 74 75 72 6e 20 |ue=cp...|.return |
|00005c80| 30 09 09 09 09 09 09 09 | 09 2f 2f 20 65 78 69 74 |0.......|.// exit|
|00005c90| 20 69 66 20 63 61 6e 63 | 65 6c 0d 09 09 65 6e 64 | if canc|el...end|
|00005ca0| 69 66 0d 09 65 6e 64 69 | 66 0d 0d 09 53 74 72 69 |if..endi|f...Stri|
|00005cb0| 6e 67 2f 47 20 72 6f 6f | 74 3a 50 61 63 6b 61 67 |ng/G roo|t:Packag|
|00005cc0| 65 73 3a 46 49 54 53 3a | 74 68 65 50 61 74 68 3d |es:FITS:|thePath=|
|00005cd0| 20 70 6f 70 53 74 72 0d | 45 6e 64 0d 0d 0d 00 00 | popStr.|End.....|
|00005ce0| 01 00 00 00 02 12 00 00 | 01 12 00 00 00 52 00 00 |........|.....R..|
|00005cf0| 0d 00 01 d0 00 00 40 00 | 54 68 65 20 63 6f 64 65 |......@.|The code|
|00005d00| 20 70 72 6f 76 69 64 65 | 64 20 69 73 20 69 0d 46 | provide|d is i.F|
|00005d10| 49 54 53 20 4c 6f 61 64 | 65 72 54 30 02 00 00 00 |ITS Load|erT0....|
|00005d20| 54 45 58 54 49 47 52 30 | 00 00 00 00 00 00 00 00 |TEXTIGR0|........|
|00005d30| 54 45 58 54 49 47 52 30 | 00 00 00 00 00 00 00 00 |TEXTIGR0|........|
|00005d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d50| ad 8a bb b0 00 00 3f 58 | 00 00 02 64 68 65 20 70 |......?X|...dhe p|
|00005d60| 72 69 6d 61 72 79 20 61 | 72 72 61 79 20 61 6e 64 |rimary a|rray and|
|00005d70| 20 63 72 65 61 74 65 73 | 20 61 6e 20 69 6d 61 67 | creates| an imag|
|00005d80| 65 20 6f 66 20 32 44 20 | 6f 72 20 33 44 20 64 61 |e of 2D |or 3D da|
|00005d90| 74 61 20 61 6e 64 20 61 | 20 72 65 67 75 6c 61 72 |ta and a| regular|
|00005da0| 20 67 72 61 70 68 20 6f | 66 20 31 44 20 64 61 74 | graph o|f 1D dat|
|00005db0| 61 2e 20 59 6f 75 20 6d | 61 79 20 77 69 73 68 20 |a. You m|ay wish |
|00005dc0| 74 6f 20 75 73 65 20 74 | 68 65 20 47 72 61 70 68 |to use t|he Graph|
|00005dd0| 69 63 61 6c 20 53 6c 69 | 63 65 72 20 58 4f 00 00 |ical Sli|cer XO..|
|00005de0| 00 48 00 0a 47 65 6e 65 | 76 61 00 00 00 00 00 00 |.H..Gene|va......|
|00005df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e00| 00 00 00 00 00 00 00 06 | 00 28 00 05 01 4f 01 f9 |........|.(...O..|
|00005e10| 00 28 00 05 01 4f 01 f9 | 00 00 00 00 00 00 00 00 |.(...O..|........|
|00005e20| 00 00 00 00 00 00 00 00 | 01 00 00 00 00 78 00 03 |........|.....x..|
|00005e30| 00 00 00 48 00 48 00 00 | 00 00 02 da 02 28 ff e1 |...H.H..|.....(..|
|00005e40| ff e2 02 f9 02 46 03 47 | 05 28 03 fc 00 02 00 00 |.....F.G|.(......|
|00005e50| 00 48 00 48 00 00 00 00 | 02 da 02 28 00 01 00 00 |.H.H....|...(....|
|00005e60| 00 64 00 00 00 01 00 01 | 01 01 00 00 00 01 27 0f |.d......|......'.|
|00005e70| 00 01 00 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e80| 00 02 00 19 01 90 00 00 | 00 00 00 40 00 00 00 00 |........|...@....|
|00005e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ea0| 00 00 00 00 00 00 00 00 | 00 46 00 01 00 00 7f ff |........|.F......|
|00005eb0| 00 00 00 48 00 48 00 48 | 00 48 00 24 00 00 00 00 |...H.H.H|.H.$....|
|00005ec0| 00 24 00 00 00 00 00 01 | 00 01 00 00 00 00 00 00 |.$......|........|
|00005ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 14 00 00 |........|........|
|00005ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 0a 00 |........|........|
|00005ef0| 00 00 01 00 00 00 02 12 | 00 00 01 12 00 00 00 52 |........|.......R|
|00005f00| 01 40 af 3c 1a 14 00 00 | 00 1c 00 52 00 01 4d 50 |.@.<....|...R..MP|
|00005f10| 53 52 00 01 00 12 57 4d | 54 31 00 00 00 2a 03 ed |SR....WM|T1...*..|
|00005f20| ff ff 00 00 00 00 01 40 | b0 7c 03 ee ff ff 00 00 |.......@|.|......|
|00005f30| 00 4c 01 40 b0 60 00 80 | ff ff 00 00 00 c8 01 40 |.L.@.`..|.......@|
|00005f40| b1 3c 00 04 00 00 00 00 | 01 0f 23 70 72 61 67 6d |.<......|..#pragm|
|00005f50| 61 20 72 74 47 6c 6f 62 | 61 6c 73 3d 31 09 09 2f |a rtGlob|als=1../|
|00005f60| 2f 20 55 73 65 20 6d 6f | 64 65 72 6e 20 67 6c 6f |/ Use mo|dern glo|
|00005f70| 62 61 6c 20 61 63 63 65 | 73 73 20 6d 65 74 68 6f |bal acce|ss metho|
|00005f80| 64 2e 0d 0d 0d 0d 4d 6f | 76 65 57 69 6e 64 6f 77 |d.....Mo|veWindow|
|00005f90| 2f 50 20 33 30 2c 37 35 | 2c 35 36 38 2c 34 31 31 |/P 30,75|,568,411|
|00005fa0| 0d 4f 70 65 6e 50 72 6f | 63 2f 57 3d 28 35 2c 34 |.OpenPro|c/W=(5,4|
|00005fb0| 30 2c 35 30 35 2c 33 33 | 35 29 2f 4a 3d 37 32 37 |0,505,33|5)/J=727|
|00005fc0| 36 2f 56 3d 30 20 22 46 | 49 54 53 20 4c 6f 61 64 |6/V=0 "F|ITS Load|
|00005fd0| 65 72 22 0d 4f 70 65 6e | 50 72 6f 63 2f 57 3d 28 |er".Open|Proc/W=(|
|00005fe0| 33 39 33 2c 31 38 37 2c | 38 39 33 2c 34 38 32 29 |393,187,|893,482)|
|00005ff0| 2f 4a 3d 35 30 38 35 2f | 56 3d 30 20 22 41 75 78 |/J=5085/|V=0 "Aux|
|00006000| 50 72 6f 63 73 22 0d 4f | 70 65 6e 4e 6f 74 65 62 |Procs".O|penNoteb|
|00006010| 6f 6f 6b 2f 4e 3d 4e 6f | 74 65 62 6f 6f 6b 30 2f |ook/N=No|tebook0/|
|00006020| 57 3d 28 36 2c 34 30 2c | 34 39 33 2c 32 38 39 29 |W=(6,40,|493,289)|
|00006030| 2f 4a 3d 31 31 36 20 22 | 44 6f 63 73 22 0d 4d 6f |/J=116 "|Docs".Mo|
|00006040| 76 65 57 69 6e 64 6f 77 | 2f 43 20 35 2c 33 32 30 |veWindow|/C 5,320|
|00006050| 2c 35 39 37 2c 34 31 32 | 0d 00 07 00 00 00 00 00 |,597,412|........|
|00006060| 00 00 05 00 00 00 00 00 | 89 23 70 72 61 67 6d 61 |........|.#pragma|
|00006070| 20 72 74 47 6c 6f 62 61 | 6c 73 3d 31 09 09 2f 2f | rtGloba|ls=1..//|
|00006080| 20 55 73 65 20 6d 6f 64 | 65 72 6e 20 67 6c 6f 62 | Use mod|ern glob|
|00006090| 61 6c 20 61 63 63 65 73 | 73 20 6d 65 74 68 6f 64 |al acces|s method|
|000060a0| 2e 0d 0d 23 69 6e 63 6c | 75 64 65 20 3c 43 72 6f |...#incl|ude <Cro|
|000060b0| 73 73 20 48 61 69 72 20 | 43 75 72 73 6f 72 73 3e |ss Hair |Cursors>|
|000060c0| 09 2f 2f 20 75 6e 63 6f | 6d 6d 65 6e 74 20 69 66 |.// unco|mment if|
|000060d0| 20 79 6f 75 20 68 61 76 | 65 20 49 67 6f 72 20 50 | you hav|e Igor P|
|000060e0| 72 6f 20 33 2e 30 2e 31 | 20 6f 72 20 6c 61 74 65 |ro 3.0.1| or late|
|000060f0| 72 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |r.......|........|
|00006100| 00 00 01 00 00 00 0c 69 | 00 00 0b 69 00 00 01 43 |.......i|...i...C|
|00006110| 2a 08 20 08 4a 80 50 4f | 66 06 76 01 60 00 00 9e |*. .J.PO|f.v.`...|
|00006120| 70 24 a1 22 28 48 20 08 | 4a 80 66 06 76 01 60 00 |p$."(H .|J.f.v.`.|
|00006130| 10 46 49 54 53 20 4c 6f | 61 64 65 72 20 44 65 6d |.FITS Lo|ader Dem|
|00006140| 6f 54 02 00 00 00 49 47 | 73 55 49 47 52 30 01 00 |oT....IG|sUIGR0..|
|00006150| 00 00 49 47 73 55 49 47 | 52 30 01 00 ff ff ff ff |..IGsUIG|R0......|
|00006160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006170| 00 00 ad 87 c6 82 00 00 | 60 72 00 00 0d ac 2f 0b |........|`r..../.|
|00006180| 4e b9 00 00 1a 38 06 12 | 00 80 52 83 52 8a 4f ef |N....8..|..R.R.O.|
|00006190| 00 10 b6 84 65 e0 55 4f | 20 46 2f 28 00 2e 2f 05 |....e.UO| F/(../.|
|000061a0| 42 a7 2f 04 48 78 00 01 | 2f 0c 2f 04 42 67 48 6e |B./.Hx..|/./.BgHn|
|000061b0| ff fc 70 7c aa aa 30 1f | 48 c0 26 00 2f 05 4e b9 |..p|..0.|H.&./.N.|
|000061c0| 00 00 38 38 2f 0c 4e b9 | 00 00 38 38 4a 83 50 4f |..88/.N.|..88J.PO|
|000061d0| 67 16 2f 39 00 01 00 6e | 61 ff ff ff f1 82 42 b9 |g./9...n|a.....B.|
|000061e0| 00 01 00 6e 58 4f 60 08 | 20 79 00 01 00 6e a0 2a |...nXO`.| y...n.*|
|000061f0| 20 03 4c df 1c 78 4e 5e | 4e 75 8f 4d 79 41 64 64 | .L..xN^|Nu.MyAdd|
|00006200| 00 00 01 fc 00 01 01 40 | 00 05 01 9c 02 55 00 ee |.......@|.....U..|
|00006210| 00 14 00 00 4e 6f 72 6d | 61 6c 00 00 00 00 00 00 |....Norm|al......|
|00006220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006230| 00 00 00 00 ff ff ff ff | 00 00 00 00 40 00 00 00 |........|....@...|
|00006240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 0a |........|........|
|00006270| 00 00 00 00 00 00 7f ff | 00 00 00 00 00 00 00 00 |........|........|
|00006280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00006290| 47 65 6e 65 76 61 00 00 | 00 00 00 00 00 00 00 00 |Geneva..|........|
|000062a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062d0| 00 00 00 00 00 00 ff ff | ff ff ff ff 00 01 00 00 |........|........|
|000062e0| 00 3c 00 00 ff ff ff ff | ff ff ff ff ff ff ff ff |.<......|........|
|000062f0| ff ff ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 48 00 48 |........|.....H.H|
|00006310| 00 48 00 48 00 24 00 00 | 00 00 00 24 00 00 00 00 |.H.H.$..|...$....|
|00006320| 00 01 00 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006380| 00 00 00 00 00 00 00 01 | 00 03 00 00 00 48 00 48 |........|.....H.H|
|00006390| 00 00 00 00 02 da 02 28 | ff e1 ff e2 02 f9 02 46 |.......(|.......F|
|000063a0| 03 47 05 28 03 fc 00 02 | 00 00 00 48 00 48 00 00 |.G.(....|...H.H..|
|000063b0| 00 00 02 da 02 28 00 01 | 00 00 00 64 00 00 00 01 |.....(..|...d....|
|000063c0| 00 01 01 01 00 00 00 01 | 27 0f 00 01 00 01 00 00 |........|'.......|
|000063d0| 00 00 00 00 00 00 00 00 | 00 00 00 02 00 19 01 90 |........|........|
|000063e0| 00 00 00 00 00 40 00 00 | 00 00 00 00 00 00 00 00 |.....@..|........|
|000063f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
